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A  three  component  feed  OBOGS  model  has  been  developed.^This  model  runs  on  a 
DEC®  Vax®  computer  and  Uses  ReGIS®  graphiesoutput  to  convey  information  about  the 
simulation  to  the  useir  The  model  uses  a  linear  oxygen  isotherm  and  Langmuir  Qrpe 
isotherms  for  nitrogen  and  the  contaminant;  the  isotherms  are  uncoupled  The  model 
assumes  plug  flow,  isothermal  conditions,  and  uses  a  common  mass  transfer  coefficient 
(linear  driving  force)  for  all  components.  Radial  gradients  and  intraparticle  gradients  are 
ignored.  The  model  is  expected  to  work  best  for  contaminants  that  are  relatively  small  and 
non-polar,  so  that  mass  transfer  resistance  is  small.  A  contaminant  with  a  large  mass 
transfer  resistance  will  require  at  least  a  separate  m&s^Snansfer  coefficiem.  The  assumption 
of  a  linear  driving  force  with  a  constant  coefficient  may  oe  entirely  invalid  for  very  large 
resistances.  Also,  the  model  will  work  best  for  relatively  small  beds.  As  the  bed  cross- 
section  increases,  the  center  of  the  bed  becomes  more  adiabatic  and  heat  transfer  at  the  wall 
becomes  important  in  determining  the  temperature  profile  (and,  through  the  isotherm,  the 
concentration  profile).  This  effect  is  relatively  unimportant  in  smaller  beds  because  the 
amount  of  heat  generated  is  small  compared  to  the  heat  transfer  area.  The  assumptions  of 
negligible  radial  gradients  and  isothermal  conditions  prohibit  the  present  model  from 
considering  the  effects  of  heat  transfer  at  the  wall. 

The  temperature  dependence  of  the  oxygen  and  nitrogen  isotherms  have  been 
determined  between  -55°  and  120°  C,  and  this  information  has  been  included  in  the  binary 
feed  OBOGS  model.  For  interpolation,  a  three  parameter  power  law  relationship  has 
proven  superior  for  matching  data  than  a  more  fundamental  approach  with  two  physically 
meaningful  parameters.  However,  because  these  curves  diverge  outside  the  temperature 
range,  the  two  parameter  approach  is  recommended  for  extrapwlation.  The  three  parameter 
fit  is  used  in  the  simui  '.tor. 
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A  single  bed  PSA  device  has  been  constructed  for  detennination  of  isotherm  and 
mass  transfer  coefficients.  A  new,  more  general  approach  to  determination  of  model 
parameters  (including  a  better  equilibrium  description)  has  been  developed.  This  approach 
matches  experimental  time  domain  breakthrough  curves  to  those  predicted  by  a  combined 
equilibrium-flow-mass  transfer  set  of  equations.  Matches  are  found  by  varying  the 
parameters  using  a  constrained  optimization  code.  The  system  and  method  have  been 
tested  using  a  zeolite  4A  derivative,  but  the  results  are  not  conclusive.  Parameters  found 
are  of  the  proper  magnitudes,  but  sensitivities  to  the  objective  function  minimized  must  be 
addressed.  This  requires  more  data. 

Data  have  been  collected  from  literature  and  placed  into  an  interactive  program 
(ISOBANK)  to  generate  curves  for  further  investigation  of  the  optimization  problems. 

This  program  allows  a  user  to  generate  isotherms  and  phase  diagrams  from  a  literature 
based  data  base. 

A  dual  bed  PSA  system  has  also  been  constructed.  This  system  is  equipped  with  one 
axially  tapped  bed  (to  determine  contaminant  penetration  into  the  bed)  and  has  a  variable 
timer  to  control  cycle  time.  Redesign  of  supporting  components  has  been  necessary  due  to 

I  problems  associated  with  previously  completed  similar  experiments  and  also  problems 

I 

I  associated  with  contaminants  of  interest  to  the  Army.  The  contaminants  most  likely  to 

I  match  model  assumptions  as  well  as  Army  interests  may  prove  to  be  explosive  mixtures, 

I 

I  especially  as  the  oxygen  concentration  is  increased  in  the  bed  (ethane  and  methane  are  the 

contaminants).  Therefore,  special  equipment  is  required,  including  explosion  relief 

•  devices.  In  a  typical  40  psig  experiment,  system  pressures  could  become  KXX)  psi  in  an 

i  explosion. 
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Introduction 

The  pressure  swing  adsorption  (PSA )  process  is  an  alternative  to  cryogenic 
distillation  for  the  separation  of  gaseous  mixtures.  PSA  is  an  important  alternative  because 
it  is  a  less  capital  intensive  process  and  can  therefore  be  economically  applied  to  the 
separation  of  smaller  feed  streams.  Application  of  PSA  to  industrial  processes  is  a  quite 
recent  development  compared  to  more  classic  unit  operations.  Practical  adsorbents  were 
not  available  until  the  late  1950's  (Milton,  1959),  and  a  regenerative  cycle  was  not  available 
until  the  early  1960’s  (Skarstiom,  1960).  However,  even  though  PSA  is  a  relatively  new 
process,  it  has  been  used  for  many  separations,  including  air,  aromatics,  natural  gas,  and 
air  drying. 

General  Description  of  Pressure  Swing  Adsorption 

Adsorptive  processes  separate  gaseous  mixtures  based  on  their  relative  affinities  for 
an  adsorbent  More  strongly  adsorbed  species  are  retained  as  they  pass  through  a  packed 
bed  of  adsorbent,  thereby  rendering  the  product  enriched  in  the  less  strongly  adsorbed 
(light)  species.  It  is  important  to  note  the  difference  between  adsorption  and  absorption. 
Adsorption  is  a  process  that  involves  the  transfer  of  molecules  I2  the  surface  of  an 
adsorbent;  absorption  involves  the  transfer  of  molecules  through  the  surface  that  separates 
the  absorbent  from  the  bulk  stream. 

As  a  gas  mixture  is  passed  through  a  bed  of  adsorbent,  molecules  of  one  (or  more)  of 
the  components  of  the  mixture  become  adsorbed  on  the  bed.  Eventually,  the  bed  becomes 
saturated  and  must  be  regenerated.  There  are  several  options  available  for  regeneration, 
and  they  lend  their  names  to  the  different  adsorption  processes.  In  pressure  swing 
adsorption,  feed  gas  enters  at  a  high  pressure.  Thus,  the  bed  becomes  saturated  at  the  high 
pressure.  Regeneration  is  accomplished  by  reducing  the  bed  pressure  as  isothermally  as 
possible.  The  reduction  in  pressure  allows  the  adsorbed  molecules  to  desorb,  rendering  the 
bed  available  for  another  adsorption  step. 
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Other  regeneration  schemes  are  also  available.  Thermal  swing  adsorption  (TSA) 
raises  the  bed  temperature  (which  reduces  the  adsorptive  capacities  of  adsorbents)  at  nearly 
constant  pressure  to  clear  the  bed  for  another  adsorption  cycle.  Inert  gas  stripping  reduces 
the  partial  pressure  of  the  adsorbed  component  in  the  bulk  stream  through  the  introduction 
of  an  inert  (unadsorbed)  gas  in  the  regeneration  step.  The  reduction  in  partial  pressure 
causes  desorption  to  occur.  Displacement  desorption  clears  the  bed  of  the  undesired 
adsorbate  (an  adsorbate  is  an  adsorbed  molecule)  by  displacing  it  with  a  mom  strongly 
adsorbed  molecule.  Finally,  it  is  sometimes  possible  to  combine  these  techniques  for  bed 
regeneration,  depending  on  the  particulars  of  a  given  separation  problem. 

As  might  be  expected,  PSA  has  both  advantages  and  disadvantages  when  compared 
to  the  other  regenerative  possibilities.  PSA  has  advantages  over  inert  gas  stripping  and 
displacement  desorption  in  that  it  does  not  require  any  supplemental  gases.  It  has 
advantages  over  TSA  because  the  faster  cycle  times  available  in  PSA  allow  more  cycles  to 
be  completed  in  a  day,  which  corresponds  to  more  product  generated  (due  to  the  thermal 
inertia  of  most  systems,  it  is  faster  to  reduce  bed  pressure  than  to  heat  and  cool  a  bed).  The 
main  disadvantage  in  PSA  is  the  cost  of  gas  compression.  In  fact,  for  large  amounts  of 
feed,  it  is  this  compression  cost  that  makes  PSA  less  economical  than  cryogenic  distillation. 

The  most  basic  continuous  PSA  system  is  shown  in  Figure  1.  Here  a  switching 
valve  imposes  supply  pressure  on  Bed  #1  and  exhaust  pressure  on  Bed  #2.  As  the 
pressure  in  Bed  #1  is  higher,  product  is  withdrawn  from  this  bed.  Bed  #2,  at  low 
pressure,  is  ready  for  its  next  production  cycle.  In  many  of  these  systems,  a  portion  of  the 
product  gas  is  throttled  (through  the  bypass)  to  strip  the  lower  pressure  bed.  Thus,  the 
diagram  shows  a  combined  PSA/stripping  system.  This  type  of  arrangement,  while  less 
efficient  than  simple  PSA  systems  (i.e.,  it  produces  less  oxygen  per  pound  of  oxygen  fed), 
is  capable  of  producing  higher  purity  product.  As  Bed  #1  becomes  saturated,  supply 
pressure  is  switched  to  Bed  #2.  For  a  transitory  period,  Bed  #1  still  has  a  higher  pressure 
than  Bed  #2  and  therefore  has  flow  out  of  both  ends  (both  to  exhaust  and  product).  During 
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this  same  period,  Bed  #2  has  flow  into  both  ends.  As  the  pressure  in  Bed  #2  rises  (and 
that  in  Bed  #1  falls),  it  eventually  becomes  the  high  pressure  bed  and  produces  product  At 
this  time.  Bed  #1  is  exhausted  and  stripped. 

The  system  in  Figure  1  is  only  capable  of  producing  the  light  (less  strongly  adsorbed) 
species  in  high  purity.  The  other  components  in  the  mixture  are  not  as  enriched  because  of 
the  stripping  process  and  also  because  the  light  species  are  still  adsorbed  (although  not  to 
the  extent  of  the  heavy  species).  Therefore,  the  light  species  are  exhausted  along  with  the 
heavies  when  bed  pressure  is  reduced.  Of  course,  a  series  of  PSA  devices  could  be 
assembled  to  separate  a  multicomponent  mixture,  but  the  success  of  such  a  system  would 
largely  depend  on  the  available  adsorbents. 

Adsorbents 

Adsorbent  characteristics  are  crucial  to  the  success  of  any  adsorptive  separation 
process.  The  adsorbent  dictates  both  the  possible  separations  as  well  as  the  regeneration 
cycles  possible.  Thus,  in  applying  an  adsorptive  process  to  a  separation  problem,  it  is 
important  to  be  aware  of  available  adsorbents. 

Thci^  are  five  commercially  significant  adsorbents:  silica  gel,  activated  alumina, 
activated  carbon,  carbon  molecular  sieves,  and  zeolites  (Ruthven,  1984).  These  adsorbents 
generally  rely  on  physical  adsorption  to  retain  adsorbates.  Typically,  physical  adsorption 
has  a  low  heat  of  adsorption  and  is  non-specific,  reversible,  and  non-activated  (Ruthven, 
1984).  Thus,  the  interactive  forces  are  typically  weak,  especially  compared  to 
chemisorption.  These  weak  forces  make  the  regeneration  process  simple  and  inexpensive. 
However,  the  non-specificity  has  historically  made  physical  adsorption  of  little  use  for 
separations,  especially  in  systems  with  similar  molecules.  The  classic  adsorbents  adsorb  a 
type  of  molecule;  silica  gel  and  activated  alumina  adsorb  polar  molecules,  and  have  been 
used  almost  exclusively  for  removing  water  from  process  streams,  while  activated  carbon 
(which  is  hydrophobic)  adsorbs  almost  any  organic  molecule.  These  adsorbents  cannot 
separate  molecules  with  similar  electronegative  properties. 
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The  development  of  adsorbents  with  very  small  (or  even  non-existent)  pore 
distributions  has  made  separations  based  on  physical  adsorption  possible.  These 
separations  are  based  primarily  on  steric  influences.  Molecules  that  cannot  fit  into  the  pore 
structure  of  the  adsorbent  cannot  interact  with  it  Zeolites  and  carbon  molecular  sieve  are 
adsorbents  capable  of  separating  gas  mixtures  in  this  maimer. 

Carbon  molecular  sieves  are  produced  through  special  activation  and  oxidation  of 
carbon  to  yield  a  narrow  pore  size  distribution  (which  is  not  characteristic  of  a  normal 
activated  carbon).  Although  reproducibility  is  a  problem  in  manufacture,  sieves  with  pore 
sizes  from  4  to  9  A  can  be  produced  (Ruthven,  1984).  However,  because  a  pore  size 
distribution  still  exists,  separations  are  usually  better  using  zeolites.  Nevertheless,  carbon 
molecular  sieves  have  found  large  scale  application  in  generation  of  nitrogen  from  air. 

Zeolites  are  fundamentally  different  from  the  other  adsorbents  discussed  because  they 
have  no  distribution  in  pore  size.  These  adsorbents  arc  formed  from  a  network  of  Si04  and 
AIO4  tetrahedra  that  share  comer  oxygens.  The  tetrahedra  are  assembled  into  a  porous, 
regular  crystalline  structure  with  very  well  defined  pores.  The  crystal  structure  allows  for 
no  variation  in  pore  size.  This  makes  highly  specific  separations  possible. 

The  adsorptive  properties  of  a  zeolite  depend  on  its  structure.  Although  many  zeolites 
occur  naturally,  their  lattice  structure  is  not  as  regular  as  synthetically  produced  zeolites. 
Furthermore,  many  structures  are  only  available  as  synthetic  zeolites.  Different  zeolite 
structures  are  obtained  through  different  arrangements  of  the  silica  and  aluminum  based 
tetrahedra.  The  ratio  of  silica  to  aluminum  is  therefore  one  way  to  control  structure  during 
synthesis.  Synthetically  produced  zeolites  are  classed  as  to  structure  type  using  letters. 

The  numbers  associated  with  zeolite  designations  typically  give  a  relative  measure  of  the 
size  of  the  pores.  Structures  named  in  this  way  are  A,  X,  and  Y,  with  4A,  5A,  lOX,  and 
1 3X  as  specific  examples.  Yet  not  all  zeolites  are  named  this  way  (ZSM-5,  for  example). 

Zeolite  adsorptive  properties  are  further  affected  by  the  choice  of  cation  used  to 
balance  out  the  negative  charge  that  each  aluminum  atom  gives  to  the  network.  The  cations 
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can  partially  occlude  pore  openings  depending  on  their  location  in  the  lattice.  For  example, 
zeolite  4A  has  a  smaller  pore  size  than  zeolite  SA  (about  4  A  compared  to  5  A)  because  the 
Na*+  ions  in  4A  partially  occlude  pore  openings,  while  the  Ca2+  ions  in  5A  do  not 
Because  the  ion  is  divalent,  less  cations  are  needed  to  satisfy  the  electronegativity 
requirements  of  the  lattice.  In  the  A  structure,  these  divalent  cations  occupy  sites  that  leave 
the  pores  unobstructed.  However,  this  may  not  always  be  the  case.  In  the  X  structure,  the 
lOX  variant  has  smaller  pores  than  13X,  even  though  lOX  contains  the  divalent  Ca^-^ 
cation  (and  therefore  less  cations).  In  this  structure,  the  Ca^'*'  ions  occupy  sites  that 
occlude  pores  while  the  monovalent  Na^+  ions  do  not,  even  though  there  are  more  Nai+ 
ions  in  the  lattice.  In  conclusion,  cation  type  and  size  affect  the  pore  size  in  zeolites,  but 
not  necessarily  in  a  straightforward  way. 

It  is  interesting  to  note  that  many  important  separations  are  not  based  on  the  steric  or 
sieving  properties  of  the  zeolite,  but  on  a  specific  interaction  between  the  adsorbent  and  an 
adsorbate.  For  example,  the  air  separation  using  zeolite  5A  produces  oxygen,  even  though 
oxygen  is  smaller  than  nitrogen  and  is  expected  to  penetrate  the  pores  more  easily.  This 
separation  works  because  the  quadrupole  moment  of  the  nitrogen  molecule  interacts  with 
polar  adsorbent  sites.  Because  the  interaction  between  the  adsorbent  and  the  nitrogen 
molecule  is  stronger  than  the  adsorbent-oxygen  interaction,  oxygen  is  produced  (Yang, 
1987),  This  effect  can  be  overcome,  however,  as  the  production  of  nitrogen  from  air  using 
a  specially  treated  4A  zeolite  is  possible.  In  this  case,  the  higher  mass  transfer  rate  of 
oxygen  to  the  zeolite  offsets  the  greater  equilibrium  capacity  of  the  zeolite  for  nitrogen. 

Commercially  available  zcolitic  adsorbents  are  generally  in  the  form  of  pellets 
consisting  of  zeolite  crystals  in  an  inert  binder.  The  binder  usually  accounts  for  about  20% 
of  the  pellet  weight  and  is  used  to  enhance  the  durability  and  effectiveness  of  the  zeolite 
crystals.  Although  the  exact  composition  of  the  binder  is  often  proprietary,  it  has  a 
negligible  effect  on  the  separative  properties  of  the  sieve. 
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Motivation  for  Study  of  PSA  Systems 

PSA  systems  arc  poorly  understood,  complex,  and  highly  interactive.  Design  of 
PSA  systems  promises  to  be  an  important  problem.  PSA  systems  arc  currently  used  in 
industry  to  generate  oxygen  for  increasing  the  efficiency  of  combustion  processes.  They 
are  also  used  to  generate  oxygen  for  dissolution  in  sewage  streams.  Other  uses  can  be 
expected  to  develop,  provided  reliable  and  efficient  PSA  systems  can  be  designed  and  built 
economically. 

Of  course,  of  primaiy  interest  in  this  work  is  the  application  of  PSA  oxygen 
enrichment  of  air  to  military  needs.  These  needs  arc  basically  to  provide  crew  breathing  air 
for  aircraft  (On  Board  Oxygen  Generation  System,  or  OBOGS)  and  to  provide  oxygen  for 
field  hospital  use.  The  ability  of  a  PSA  process  to  fill  these  roles  will  free  the  military  from 
the  restrictions  imposed  by  liquid  oxygen  and  high  pressure  oxygen  systems.  However, 
the  small  size  of  these  units  make  dynamic  considerations  quite  important  in  the  analysis 
and  design  of  a  suitable  PSA  unit  The  current  design  methodology  for  aircraft  units  is 
empirical  and  often  relies  on  trial  and  error.  Larger  industrial  units  usually  use  a  steady 
state  modeling  approach  with  empirical  correlations  in  design.  Nevertheless,  operational 
PSA  units  are  available  and  are  in  use  by  the  military.  It  is  not  known,  however,  how 
optimal  these  units  are. 

Thus,  the  motivation  for  study  of  PSA  systems  is  the  desire  to  efficiently  design 
efficient  PSA  units. 
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The  PSA  modeling  problem  is  not  a  trivial  one  because  of  the  interaction  that  exists 
between  the  system  components.  The  result  is  a  complex,  dynamic  system  of  linked,  non¬ 
linear  equations  that  are  difficult  to  solve.  While  many  mathematical  descriptions  and 
solutions  exist  of  breakthrough  curves  on  single  beds  with  pure  component  feeds,  many  of 
the  extant  solutions  are  subject  to  unrealistic  assumptions  concerning  column  behavior. 
Therefore,  their  utility  in  an  overall  PSA  system  model  is  questionable. 

Essential  to  any  PSA  modeling  effort  are  five  components:  bed  flow  equations, 
interparticle  mass  transfer  expressions,  intrapaticle  mass  transfer  expressions,  isotherm 
expressions,  and  heat  transfer  equations.  The  combined  set  of  equations  is  formidable: 

Fluid  Mass  Balance  (one  for  each  component) 


3,^,  aci  n-f.^a, 


Mass  Transfer  (one  for  each  component) 
^=f(T„Ci,Ci',q,i) 


Equilibrium  Isotherm  (one  for  each  component) 


Ci  =  f(Ts,qj;ii,qi) 

Fluid  Heat  Balance  (non-isothermal) 
-Xhd'^-Tf  aTf  aTf  fl  -  e 

“T" 


“~(Tf-Tw) 

eDbCf 


Particle  Mass  Balance  (one  for  each  comp>onent) 


Panicle  Heat  Balance 
dT,  3h 
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Note  that  these  equations  already  assume  negligible  pressing  drop  through  the  bed  as 
,  well  as  negligible  radial  gradients. 

The  difference')  between  modeling  approaches  are  primarily  in  the  assumptions  made 
in  order  to  simplify  the  above  equation  set  so  as  to  obtain  a  solution  within  some  set  of 
constraints.  These  differences  are  not  minor,  nor  is  any  single  set  of  assumptions  expected^ 
to  be  valid  for  all  separation  pioblems.  The  modei  described  below  was  designed  to  be 
applicable  to  air  separation  with  a  dilute  contaminant  in  the  feed  stream.  It  was  also 
designed  to  run  reasonably  quiclcly  on  a  DEC®  Vax®  computer.  Details  arc  presented 
below. 

Bed  Equations 

The  equations  in  die  model  described  in  this  report  have  been  presented  in  Beaman 
(1985),  Beaman,  etal  (1933),  and  Yang  (1986).  They  are: 

P(Ca*  -  (8) 

(9) 

^.-k(C‘-o  (10) 

^=-k(CA’-CA)  (11) 

^.-k(CB*-CB)  (12) 

CA'=KAqA  (13) 

Cb*--SB^  (14) 

Cc‘-"^?r  (15) 


Note  that  this  set  of  equations  includes  the  following  assumptions: 

1 .  Isothermal  behavior 

2 .  No  iniraparticle  gradients 
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3.  Negligible  radial  gradients 

4.  Negligible  axial  dispersion 

5 .  Negligible  pressure  drop  through  the  bed 

6.  Common  mass  transfer  coefficients 

7.  Constant  mass  transfer  coefficient 

8.  Uncoupled  mass  transfer 

Furthermore,  the  ideal  gas  law  is  assumed  to  be  valid. 

Isotherms 

Equations  (13)-(15)  above  are  the  isotherms  currently  used  in  the  model.  The  oxygen 
isotherm  (component  A)  is  linear,  while  the  contaminant  (B)  and  nitrogen  (C)  isotherms  are 
modified  Langmuir  type  isotherms.  The  isotherms  are  very  important  in  oxygen  generation 
from  air  because  the  process  is  equilibrium  dominated.  Beaman  coupled  the  isotherms  for 
the  binary  feed  case  using  the  Ideal  Adsorbed  Solution  Theory  of  Myers  and  Prausnitz 
(1963),  but  the  isotherms  for  the  ternary  feed  model  are  uncoupled.  This  has  been  done  to 
reduce  the  computational  time  required.  As  long  as  the  contaminant  is  only  in  low 
concentration,  this  is  a  reasonable  assumption.  For  the  binary  oxygen-nitrogen  case,  the 
linking  of  the  isotherms  did  not  make  a  signiHcant  difference  in  the  product  stream 
composition  calculated.  Improvements  in  equilibrium  are  possible  and  will  be  discussed 
later. 

Temperature  Correlation  for  Isotherms  in  Model 

Although  the  model  assumes  isothermicity,  there  is  no  reason  that  temperatures  other 
than  ambient  cannot  be  modeled.  Therefore,  the  model  has  been  modified  to  include 
temperature  effects.  These  changes  have  been  in  the  ideal  gas  law  conversions  and  in  the 
isotherm  expressions.  Experimental  results  and  a  theoretical  analysis  follow.  Because  the 
contaminant  is  unknown,  experiments  were  only  done  to  quantify  the  temperature 
dependence  of  the  oxygen  and  nitrogen  isotherms. 
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As  determined  by  Beaman,  et  al  (1983),  one  can  analyze  nitrogen  breakthrough 
experimental  results  fo>m  a  single  bed  packed  with  zeolite  to  identify  model  system 
parameters,  specifically  the  isotherm  coefficients  Ka,  Kg,  and  bB< 

During  a  nitrogen  breakthrough  (or  wash-out)  the  single  bed  system  is  set  up  such 
that  pure  oxygen  is  flowing  through  the  bed  at  a  constant  mass  flowrate,  oo.  At  time  t=0,  a 
valve  is  switched  to  cause  the  inlet  gas  to  change  from  pure  oxygen  to  pure  nitrogen  with 
the  inlet  mass  flowrate  remaining  constant  Typically,  the  bed  outlet  flowrate  drops  almost 
instantaneously  to  a  lower  value,  (o.  The  outlet  mass  flow  remains  at  this  depressed  level 
for  a  measurable  period  of  time. 

Using  the  results  from  Beaman,  et  al.,  the  following  procedure  for  determining  the 
model  parameters  was  developed 

For  each  test  the  following  data  were  obtained:  temperature,  bed  pressure,  steady 
state  mass  flowrate,  droop  mass  flowrate,  and  time  to  50%  breakthrough  (t  so). 

All  tests  run  at  one  temperature  were  used  to  obtain  a  value  for  |i  (sI.Kb/Ka)  and  y 
(=qB/bB)  for  that  particular  temperature. 

To  accomplish  this  an  equation  containing  two  unknowns  (y  and  ii)  was  obtained  for 
each  test  The  equations  were  of  the  form: 

H-Q*y=F,  (16) 

where  Q=P(I)/P(1)  (P(l)  is  the  bed  pressure  of  that  particular  test  and  P(l)  is  the  lowest  bed 
pressure  of  any  test  run  at  a  particular  temperature),  and  F=Mr'*‘(to/coo)  (Mr  is  the  ratio  of 
the  molecular  weight  of  oxygen  to  that  of  nitrogen  and  cq/coq  is  the  ratio  of  the  droop  mass 
flowrate  to  the  steady  state  mass  flowrate). 

Thus,  a  matrix  solution  was  developed  for  the  e^iuation: 

Z  =  HX  +  V  (17) 

where  Z  is  an  nxl  vector  containing  each  F  (n  is  the  number  of  tests  run  at  this  particular 
temperature),  H  is  an  nx2  matrix  containing  each  coefficient  for  |X  and  y,  X  is  the  2x1 
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vector  of  p.  and  y>  and  Y  is  an  nxl  vector  containing  the  noise  about  the  average  for  each 
test  equation. 

Once  p  and  y  ate  obtained,  Kai  Kb,  and  be  may  be  found.  Again,  for  a  given 
temperature,  Ka  was  obtained  from  the  results  of  each  test  by  using  the  following  equation: 

KA  =  L*A*p*(l-e)/((0o*t5O*(l-»i))  (18) 

where  p=P(I)*Mo2/(R*T),  L=bed  length,  A=bed  cross-sectional  area,  and  R  is  the  gas 
constant. 

The  Ka's  obtained  for  each  test  were  then  averaged  to  arrive  at  a  Ka  for  that  speciHc 
temperature. 

Kb  and  bB  were  then  easily  found: 


Kb  =  (1-P)/Ka 

(19) 

bB  =P/(R*T*Ka*7) 

(20) 

where  P  is  the  lowest  pressure  P(l)  which  was  used  in  determining  a  val:ie  for  Q  (the 
coefficient  of  i)  at  each  particular  temperature. 

Experiments  were  done  from  temperatures  of  -55®  C  to  120®  C.  A  cryogenic  altitude 
chamber  was  used  for  low  temperature  experiments;  a  bath  filled  with  old  (contaminated) 
zeolite  was  used  for  the  high  temperature  experiments. 

The  bed  had  an  inside  diameter  of  15/16  inches  and  an  interna),  length  of  6.0  inches. 
The  bed  was  packed  with  49.0  grams  of  Linde  5  A  molecular  sieve  sifted  through  a  screen 
with  20  to  40  meshes  per  inch.  This  corresponded  to  zeolite  particles  340  to  833  microns  in 
diameter.  The  density  of  the  zeolite  was  assumed  to  be  1.15  grams  per  cubic  centimeter. 
Thus,  the  void  fraction  in  the  bed  (e)  was  approximately  0.37  (dimensionless). 

Cylinders  of  pressurized  oxygen  and  nitrogen  were  located  upstream  from  the  bed. 
Each  cylinder  exhausted  through  a  standard  reducing  valve  (regulator)  and  a  solenoid  valve 
to  a  tee-junedon.  The  pressure  upstream  of  the  flow  valve  was  maintained  at  90  psia  to 
cause  choked  flow  throughout  the  length  of  the  bed,  regardless  of  the  mass  flowrate.  The 
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flow  valve  was  adjusted  to  maintain  a  constant  mass  flow  through  the  bed.  Thus,  the 
steady-state  mass  flowrate  was  eliminated  as  a  variable  in  this  experiment 

The  pressure  drop  across  the  bed  was  monitored  by  a  differential  pressure  transducer 
which  had  one  input  from  the  line  just  bef(»e  the  entrance  to  the  bed  and  the  second  input  in 
the  line  just  after  the  exit  from  the  bed.  The  output  from  the  pressure  transducer  was 
recorded  using  a  strip  chart  recorder. 

A  rotameter  was  placed  in  line  along  with  a  hot  wire  anemometer.  The  rotameter  was 
used  to  calibrate  the  output  of  the  hot  wire  anemometo’  at  20^  and  1  atmosphere.  The 
calibrated  anemometer  output  was  used  to  set  the  steady-state  flowrate  at  all  subsequent 
temperatures  and  pressures. 

The  line  then  exhausted  into  a  plenum  which  could  be  regulated  to  vary  the  system 
pressure  between  1/2  and  3  atmospheres  while  maintaining  the  steady-state  flowrate.  As  a 
check  on  the  validity  of  the  anemometer  at  elevated  pressures,  another  rotameter  was  placed 
at  the  exhaust  of  the  plenum.  The  readings  from  this  second  rotameter  verified  that  the 
readings  of  the  anemometer  were  correct 

The  bed  pressure  was  monitored  by  placing  an  absolute  pressure  gauge  just 
downstream  from  the  bed. 

Two  thermocouples,  one  placed  upstream  from  the  bed  and  a  second  placed  just 
downstream  from  the  bed,  showed  the  temperature  of  the  gas  flowing  through  the  system. 
Tests  were  not  run  until  the  temperature  readings  of  the  two  thermocouples  became 
identical  and  remained  stable  for  several  minutes  to  obtain  steady-state  conditions. 

Second  order  least  square  approximations  for  both  Ka  and  Kg  were  obtained  (T  in 
degrees  Celsius): 

Ka  =  7.2443x10-6*t2  +  1.8347xl0-3*T  +  0.14233  (21) 

Kb  =  1.321x10-5*t2  +  9.5775xlO-^*T  +  0.036546 
The  correlations  of  the  data  to  these  approximations  were  satisfactory  for  use  in  the  system 
model  and  are  shown  in  Figures  3  and  4. 
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For  mid-range  temperatures  be  is  relatively  constant  and  this  average  is  used  in  the 


system  model: 


be  =  3.0591 


(22) 


Ihs.9T6ilffal  Analysis 

Beaman  identified  three  parameters  for  the  oxygen-nitrogen  system,  as  well  as  a 
method  for  evaluating  these  parameters.  In  Beaman’s  notatiai,  the  component  isotherms 

are: 

CA*  =  KAqA  (23) 

Cb*  =  ■  ■■  (24) 


Ka 

Kb 

Ca* 

Cb* 

qA 

qe 

bB 


oxygen  equiUbrium  constant 
nitrogen  equUibiiutn  constant 
interfacial  oxygen  concentration 
intcrfacial  nitrogen  concentration 


adsorbed  phase  oxygen  concentration 
adsorbed  phase  nitrogen  concentration  pB 
limiting  nitrogen  adsorption 


Note  that  the  units  for  bs  are  incorrect  in  the  1985  paper  (where  bB  =  P). 

Predicting  the  temperature  dependence  of  these  parameters  is  not  trivial  because  these 
expressions,  while  similar  to  the  classic  Langmuir  expressions,  are  significantly  different. 
Specifically,  the  bed  density  of  the  adsorbent  is  imbedded  in  these  parameters  and,  because 
the  parameters  are  in  terms  of  concentrations,  an  equation  of  state  must  be  assumed.  This 

OBOGS  Report  15 


equation  of  state  causes  the  temperature  dependence  of  the  parameters  to  be  different  from 
those  of  the  Langmuir  expression. 


The  classic  Langmuir  expression  is: 

e=i!L=  kE— 

ms  1  +  Kp 

6  =  fraction  of  surface  coverage  [dimensionless] 
m  =  amount  adsorbed 

ms=  amount  adsorbed  at  saturation  ^Jsi'gen?^] 

k  =  equilibrium  constant  1^4"^ 

p  =  partial  pressure  of  component  F 


kg-mol  adsorbedl 
gm  adsorbent  J 


(25) 


The  temperature  dependence  of  the  equilibrium  constant  k  follows  the  van't  Hoff 
relation: 

k  =  koexp(^)  (26) 

where  R  is  the  universal  gas  constant  [8.3144  J/gm-mol  K),  (-AHq)  is  the  isosteric  heat  of 
adsorption  [J/gm-mol],  and  T  is  the  temperature  in  degrees  K. 


From  thw  ideal  gas  law,  we  can  find: 


Ci*=^ 

Substitution  of  (27)  into  (25)  and  rearranging: 

^^kjnjCj^^RT^ 


m  = 


Solving  for  Ci*, 


1  +  kCi*RT 
^  (kmskT) 


mp 


Ci’  = 


P  - 


mp 

mg 


(27) 


(28) 


(29) 


Where  p  is  the  bed  density  of  adsorbent  [gm/m^]. 

In  Beaman's  notation,  qi^mp.  Substitution  into  (29)  and  rearrangement  yields: 
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r 


,  IkmgRTpj 
■  ■  1 

msP 


Ci*  = 


(30) 


Comparison  to  (24)  gives  the  desired  result: 


Ki* 


kocxp(*^^jmsRTp 


(31) 


be  =  nisp 

Therefore,  we  find  equations  (31)  give  the  expected  theoretical  dependence  of  Ki  <m 
temperature  as  well  as  show  that  be  is  expected  to  be  independent  of  temperature.  The 
experiments  conflrm  this  latter  observation.  However,  the  power  law  in  positive  powers  of 
temperature  (in  ‘<1)  fit  to  Ki  using  three  parameters  is  not  correct  from  a  theoretical 
standpoint  A  more  valid  approach  uses  the  expression  for  Ki  in  (31)  to  obtain  a  two 


parameter  fit  to  the  data.  We  can  rewrite  the  expression  for  Ki  as: 

Ki  =  -  ‘ 


(32) 


ATexp^i^j 

Where  A  =  komsRp  and  B  =  (AHq/R).  Taking  the  natural  logarithm  of  both  sides  of  (32) 


gives: 


Rearranging, 


ln(Ki)=-ln(AT)  +  |-=-ln(A)-ln(T)  +  l^  (33) 


ln(Ki)  +  ln(T)  =  -ln(A)  +  y  (34) 


or 

ln(KiT)  =  -ln(A)  +  Y  (^5> 

Thus,  if  In(KiT)  is  plotted  against  (1/T),  a  line  should  be  obtained.  This  is  shown  in 
Figure  5  for  oxygen  and  in  Figure  6  for  nitrogen.  The  coefficients  from  these  figures  were 
used  to  generate  the  GDM  curves  in  Figures  7  and  8.  From  these  graphs,  it  is  clear  that  the 
three  parameter  curve  is  slightly  superior  for  interpolation.  However,  the  figures  show  that 
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the  GDM  and  WAL  curves  diverge  outside  the  temperature  range  of  the  data.  Because  of 
its  theoretical  background,  extrapolation  should  be  more  reliable  with  the  GDM  curve. 
Mass  Transfer 

Presently,  the  model  uses  a  common  mass  transfer  coefficient  for  all  components. 
This  is  only  reasonable  for  contaminants  with  sizes  that  are  similar  to  oxygen  and  nitrogen. 
Furthermore,  the  use  of  the  linear  concentration  driving  force  with  a  constant  coefficient  is 
not  considered  reasonable  for  zeolites  (Yang,  1987,  Ruthven,  1984).  However,  both  of 
these  assumptions  have  worked  well  in  the  model.  Both  assumptions  have  worked 
because  air  separation  on  zeolite  S  A  is  basically  an  equilibrium  process.  Consequently,  ' 
diffusional  resistances  are  relatively  unimportant  Beaman  (1983,1985)  found  that  the 
binary  nitrogen-oxygen  system  was  very  insensitive  to  the  choice  of  mass  transfer 
coefficient  and  had  some  difficulty  in  determining  one  uniquely.  Therefore,  the  mass 
transfer  assumptions  in  the  model  are  acceptable,  as  long  as  the  contaminants  are  not  large 
molecules.  For  large  molecules,  diffusional  resistance  will  be  significant,  and  the  model 
may  fail. 

Solution  of  Model  Equations 

The  system  equations  are  solved  as  described  in  Beaman  (1985).  Note,  however, 
that  the  solution  algorithm  supplied  in  that  paper  inherently  assumes  the  bed  geometry 
outlined  in  the  paper,  where  a  cross-sectional  area  change  occurs  at  one  half  the  total  bed 
length.  The  equations  needed  for  the  valves  and  the  plenum  are  described  below. 

Valve  Equations 

The  basic  equations  for  the  flow  of  a  gas  through  standard  compressible  flow 
pneumatic  orifices  have  the  following  two  forms  (Blackburn,  et  al,  1960): 

1 .  W  =  Cd*Ad*Ci*Pu/CI<>'5)*(rr^/>9*((l-Pr^^'(^^»)®-5)  for  pressure  ratios 
(Pr=Pd/Pu)  greater  than  the  choked  flow  ratio  (0.528)  and  less  than 
unity. 


OBOGS  Report 


18 


2.  W  =  C<i*Ad'''C2*Pu/(T®-^)  for  pressure  ratios  less  than  the  choked  flow 
ratio. 

W  =  mass  flowrate  through  the  valve 
A<i  =  orifice  area 

Ql  =  dimensionless  discharge  coefficient 
T  =  upstream  stagnation  temperature 
Pu  =  upstream  stagnation  pressure 
Pd  =  downstream  pressure 
k  =  ratio  of  specific  heats 

Cl  and  C2  are  functions  of  the  gas  constant  and  the  ratio  of  the  speciHc  heats  of  the 


gas. 

Plenum  Equation 

The  plenum  was  modeled  as  a  simple  two  stage  isobaric  mixer.  As  defined  by 
Beaman,  the  transfer  function  between  the  inlet  (xi)  and  outlet  (xo)  mole  fractions  is  given 
by: 

V  _  1 

(36) 


2a=. 


l 


(TS  +  1)2 


where 

(37) 

Cp  is  the  plenum  concentration  (assumed  constant),  Wbr  is  approximately  half  the 
total  plenum  volume  (“approximately”  because  of  corrections  for  mixing  in  piping),  Mav  is 
an  average  molecular  weight  in  the  plenum  (due  to  the  similarity  of  the  molecular  weights 
of  oxygen  and  nitrogen,  the  fact  that  Mav  is  related  to  Xq  and  xi  is  ignored),  and  Wbr  is 
the  breathing  flowrate,  in  mass  units. 

Discussion 

As  shown  in  Beaman's  (1985)  paper,  the  above  model  works  well  for  the  binary 
system  (which  uses  a  subset  of  the  bed  equations  above).  Even  for  high  product  floivrates, 
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the  model  matched  experiment  for  the  Bendix  prototype  unit  tested.  Thus,  we  have 
confidence  that  the  model  is  a  good  approximation  of  the  operation  of  that  unit.  The 
multicomponent  model  did  not  exist  at  that  time,  however,  and  no  tests  with  contaminants 
in  the  feed  were  attempted. 

It  should  be  noted  that  several  equations  and  defmitions  in  the  1985  paper  are 
incorrect.  Using  the  equation  numbers  god  notation  from  that  paper,  equations  (6b),  (1 1), 


and  the  defining  equations  for  u  and  Ya  in  section  3.2  (iii)  should  read: 


KbiiJ 


n 


B 


Ui  =  UM.p(24i^.  l)i, 


(6b) 


(11) 


and 


u  =  ro  +  ri(z  -  zi.i),  ro  =  un,  ri  =  yi'-i’l 

Az 

YA  =  r2  +  r3(z  -  zi.O,  r2  =  YA.i-i.  n  = 

Az 


The  units  on  b  in  that  paper  should  be  [kg  mole  adsorbed/m^]. 

It  is  very  important  to  integrate  equations  (8)  and  (9)  (in  this  report)  in  the  direction  of 
flow.  This  is  required  because  in  deriving  the  solutions  to  (8)  and  (9)  using  the 
approximations  immediately  above,  ri  must  be  positive  whenever  tq  is  zero  (at  the  zero 
velocity  point  in  the  bed).  This  is  necessary  to  avoid  division  by  zero  in  the  analytical 
approximations  to  (8)  and  (9). 
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Experimental  Approach 

Responsibility  for  acquisition  of  experimental  information  for  model  verification  was 
officially  transferred  to  the  University  of  Texas  at  the  end  of  July,  1986.  Although  a  mass 
spectrometer  was  in  place  at  this  dme,  it  was  not  qjerational  until  the  fall  of  1986,  when 
other  responsibilities  substantially  interfered  with  experiments.  Nevertheless,  single  and 
dual  bed  systems  have  been  constructed,  and  some  preliminary  work  has  been  completed. 
Single  Bed  Apparatus 

The  single  bed  unit  was  constructed  to  allow  determination  of  mass  transfer  and 
isotherm  parameters.  Because  Beaman's  approach  relied  on  the  specifics  of  the  isotherm 
and  flow  equations  outlined  in  his  papers,  a  new,  more  general  approach  was  desired  for 
determining  multicomponent  isotherms.  The  new  parameter  estimation  scheme  was 
designed  to  yield  isotherm  parameters  for  a  new  isotherm  type,  the  Vacancy  Solution 
Model  (Suwanayuen  and  Danner,  1980a,  1980b,  Cochran,  et  al,  1985a,  198Sb),  and  also 
axial  dispersion  and  individual  mass  transfer  coefficients.  All  of  this  information  is  derived 
from  breakthrough  experiments. 

ConstructionJDescription 

The  single  bed  system  is  shown  schematically  in  Figure  9.  Figure  10  is  a  photograph 
of  the  system.  The  bed  is  two  feet  long  (61  cm),  one  inch  O.D.  (2.54  cm),  with  .035  inch 
(.089  cm)  wall  thickness.  Construction  is  of  316  stainless  steel.  The  bed  is  housed  in  a 
temperature  controlled  box  that  has  an  available  range  of  room  temperature  to  70°  C.  The 
stainless  steel  tubing  is  packed  with  zeolite  adsorbent.  Feed  gas  flow  rates  are  controlled 
and  measured  by  mass  flow  controllers  (SIERRA  840  series)  and  monitored  continuously 
on  an  IBM  PC-XT  using  Labmaster  and  DADIO  boards  (Scientific  Solutions  Inc.).  The 
concentration  from  the  exit  of  bed  is  analyzed  by  a  mass  selective  detector  (Hewlett  Packard 
5790  series).  The  inlet  and  outlet  pressures  are  controlled  by  in-line  regulators  and 
measured  by  pressure  transducers  (Omega),  and  monitored  continuously.  The  IBM  PC- 
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Xr  is  also  used  to  drive  the  solenoid  switching  valve.  The  task  of  this  experimental 
equipment  is  to  give  the  response  curve  for  a  step  change  in  feed  gas  concentration. 
Parameter  Estimation  Scheme 

The  analysis  of  the  breakthrough  curves  involves  matching  the  experimental 
breakthrough  curves  to  curves  predicted  by  a  mathematical  model  by  varying  the 
parameters  in  the  model.  This  approach  to  determining  the  isotherm  parameters  is  a 
chromatographic  method,  as  opposed  to  the  more  classic  gravimetric  and  volumetric 
methods.  In  determining  multicomponent  isotherms,  both  gravimetric  and  volumetric 
methods  suffer  from  the  fact  that  samples  must  be  withdrawn  from  the  system  in  order  to 
determine  gas  composition.  This  is  not  necessary  for  chromatographic  methods  (although 
it  may  be  necessary  to  add  tracers). 

Ba£kgro,und. 

A  chromatographic  method  of  measuring  parameters  of  a  packed  bed  of  porous 
adsorbents  has  advantages  of  speed  and  simplicity.  The  chromatographic  method  depends 
on  matching  the  experimental  chromatogram  to  the  theoretical  response  curve  predicted 
from  an  appropriate  dynamic  model. 

The  first  and  most  widely  used  method  is  the  method  of  moments  of  Kubin  (1965a, 
b)  and  Kucera  (1965)  which  was  developed  by  Schneider  and  Smith  (1968a,  b).  Ruthven 
and  Kumar  (1980)  used  the  modified  method  of  moments  for  study  of  a  binary  adsorption 
system.  Previous  studies  based  on  this  approach,  have  generally  relied  entirely  on  the  first 
and  second  moments  but  this  means  that  important  information  contained  in  the  shape  of 
the  curve  is  ignored. 

To  overcome  these  difficulties,  Sarma  and  Haynes  (1974)  have  used  an  alternative 
method  of  analysis  involving  direct  matching  of  the  experimental  and  theoretical  curves  in 
the  frequency  domain.  The  method  gives  reliable  results  but  it  has  the  disadvantages  of 
mathematical  complexity  since  numerical  conversion  between  the  time  and  frequency 
domains  is  required. 
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Another  approach  based  on  numerical  solution  of  the  governing  differential  equations 
has  been  developed  by  Raghavan  and  Ruthvcn  (1985),  but  this  is  also  mathematically 
complicated.  Hassan  et  al.(1985)  have  used  this  approach  for  a  single  component 
adsorption  system  with  nonlinear  equilibrium. 

Here  we  present  a  curve  fitting  method  to  estimate  the  parameter  values  for  a  packed 
bed  with  the  Vacancy  Solution  Model  (Cochran,  Kabel,  and  Danner,  1985). 

Mathgroati*;  ilMostel 

To  represent  the  dynamic  response  of  the  adsorption  system  a  linear  rate  model  is 
used  with  the  familiar  Danckwerts  boundary  conditions.  Parameters  included  in  the  model 
are  therefore  (a)  the  equilibrium  adsorption  constants  for  linear  adsorption  model  or  (b)  the 
parameters  for  Vacancy  Solution  Model ,  and  the  axial  dispersion  coefficients  and  the  mass 
transfer  rate  coefficients. 

Assumptions: 

a)  The  system  is  isothermal. 

b)  The  fluid  velocity  within  the  bed  is  constant 

c)  The  flow  pattern  is  described  by  the  axially  dispersed  plug  flow  model. 

d)  The  mass  transfer  rate  is  represented  by  a  linear  driving  force  rate  expression. 


Mass  balance  for  adsorbable  component  in  external  fluid  phase 


Mass  transfer  rate  expression 
^=k(q*-q) 

Boundary  conditions 


(38) 

(39) 

(40) 


(41) 


Initial  conditions 

C(z,0)  =  q(7.,0)  -  0 
Two  equilibrium  models  are  considered: 

a)  Linear  adsorption  model 

q*  =  KAC  (42) 

b)  Vacancy  solution,  model  (.VSM)  (Cochran,  Kabel,  and  Danner,198S) 

(43) 


^  -  J?.L- 


til* 


The  mathematicaj  model  is  non-dimensionalized  for  both  the  linear  isotherm  and  VSM 

cases.  First,  for  the  linear  case,  the  following  dimensionless  variables  arc  defined: 

„  uL  kL  ,  tu  ^  C  ^  V  ^ 


qo 


These  variables  give  the  following  PDE: 


1  a2C  dC  dC  ^  (1  •  eW  ^  n 


.  Tf  (  «•  -  <  ) 

9x 


(44) 


(45) 


For  the  VSM,  the  following  dimensionless  variables  and  equations  are  obtained: 
uL  ^kL_tu^C__jg_  L 


Pe  = 
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_  n  ^ 
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The  equations  were  first  reduced  to  ordinary  differential  equations  by  the  method  of 
orthogonal  collocation  as  described  by  Villadsen  and  Stewart  (1967),  Karanth  and  Hughes 
(1974)  and  Finlay  son  (1980).  The  ordinary  differential  equations  were  then  solved  by 
using  Gear's  integration  algorithm  with  full  Jacobian  analysis. 

Esiimaiioo. 

According  to  the  present  model  the  response  curve  C(L,t)  is  given  by  the  solution  of 
the  coupled  partial  differential  equations  with  the  boundary  and  initial  conditions.  From  the 
numerical  solution  to  these  equations  one  may  generate  a  family  of  adsorption  and 
desorption  curves  with  parameters.  Alternatively  the  values  of  the  parameters 
corresponding  to  the  experimental  conditions  may  be  found  by  matching  the  experimental 
and  theoretical  curves.  Because  of  the  sensitivity  of  the  regressed  parameters  to  the 
experimental  breakthroughs  both  adsorption  models  are  used;  the  Henry's  law  constant, 
bi,  is  obtained  using  the  linear  adsorption  model,  while  the  VSM  is  used  to  determine  the 
limiting  amount  of  adsorption,  ni~,  and  the  gas-solid  interaction  term,  aiv. 

For  the  linear  adsorption  model  (with  inlet  gas  concentration  less  than  1%),  the 
adsorption  equilibrium  constant  can  be  easily  calculated  by  integrating  the  breakthrough 
curves.  qtyCo  may  be  calculated  from  the  known  gas  phase  concentration  and  the  total 
equilibrium  capacity,  as  determined  by  integration  of  the  breakthrough  curve: 


(49) 


When  the  concentration  of  feed  gas  is  less  than  1%,  qo/Co  is  the  same  as  Ka. 
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The  Peclet  number  can  be  calculated  from  the  correlation  of  Edwatds  and  Richardson 


(1968): 


Dl  =  0.703  Dm  + - -  (50) 

Here  only  one  parameter,  the  dimensionless  mass  transfer  coefficient  Tf ,  remains  to 
be  determined  by  matching  the  theoretical  and  expoimental  breakthrough  curves.  Tf  can  be 
estimated  by  using  the  GRG2  optimization  code  (Lasdon,  1986). 

For  higher  inlet  gas  concentraticms,  the  VSM  is  used.  The  Peclet  number,  Pe,  is  still 
calculated  by  using  the  correlation  of  Edwards  and  Richardson  (1968)  and  the  mass 
transfer  coefficient,  Tf,  can  be  estimated  with  the  linear  model,  assuming  kf  is  independent 
of  gas  concentration.  Ka  is  known  from  the  linear  experiment  as  well. 

Henry's  law  constant,  bi  is  obtained: 


The  ratio  of  qo^Q)  is  determined  by  integrating  the  effluent  curve. 

The  limiting  amount  of  adsorption,  m*”,  and  parameter  describing  nonlinearity, 
aiv,  are  estimated  using  the  GRG2  optimization  code  with  objective  function: 

nr.aiv  2!  (  cal  -  Ci,exp  )2  (52) 


subject  to  constraint; 


(aiv)2 


bi  ni~  -  1  *^lni“  + 


This  optimization  problem  involves  one  degree  of  freedom. 

Interactive  programs  using  IMSL,  Tektronix  graphics  libraries  and  the  GRG2  code 
A'ere  developed  for  the  parameter  estimation  and  the  handling  of  actual  experimental  data. 
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ISOBANK 

Concurrent  with  the  construction  of  the  single  bed  apparatus  and  development  of  the 
estimation  scheme  was  the  creation  of  ISOBANK.  This  is  an  interactive  program  that  has  a 
collection  of  isotherm  information  from  the  literature  imbedded  in  it  Users  are  able  to  use 
the  program  to  generate  isotherms  and  phase  diagrams  from  available  literature  data.  This 
program  was  used  to  generate  data  on  which  to  test  the  above  estimation  scheme.  The 
program,  a  user's  manual,  and  example  output  from  the  program  are  included  in  an 
appendix  to  this  report. 

Discussion 

The  single  bed  apparatus  and  estimation  scheme  have  been  tested  using  a  zeolite 
called  RS- 10.  This  is  a  4A  zeolite  that  has  been  specially  treated  to  further  restrict  the  ptae 
openings.  Parameters  were  obtained  that  are  of  the  same  order  of  magnitude  as  literature 
parameters  for  4A,  but  no  information  is  available  on  RS-IO  in  the  literature.  Therefore, 
the  validity  of  the  approach  has  not  yet  been  proven. 

Numerical  experiments  carried  out  on  literature  data  in  ISOBANK  indicate  that  the 
results  are  quite  sensitive  to  the  choice  of  objective  function.  A  least  squares  objective 
function  is  described  above.  From  a  statistical  point  of  view,  better  options  for  objective 
functions  exist,  particularly  if  more  information  is  known  about  a  process.  One  of  these 
alternative  objective  functions  is  known  as  theerror-in-variables  method  (EVM)  (High  and 
Dan;ier,  1986,  Reilly  and  Patino-Leal,  1981).  This  objective  function  uses  covariance 
matrices  to  account  for  measurement  errors  that  may  influence  results  in  subtle  ways.  The 
covariance  matrices  for  various  types  of  measurements  have  been  assembled  and  are 
available  in  the  literature  (Bilgic,  1970).  The  EVM  seems  to  match  the  literature  isotherms 
better,  but  this  conclusion  is  somewhat  simplistic  and  is  simply  based  on  “eyeballing”  the 
generated  isotherms.  Least  squares  will  generate  the  best  fit  possible  in  the  least  squares 
sense.  The  EVM  uses  covariance  matrices  in  an  objective  function  to  get  the  best  fit 
possible  in  a  different  sense.  Thus,  they  are  both  best  fits,  and  any  conclusion  as  to  which 
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fit  is  better  must  be  based  on  a  more  fundamental  analysis  of  the  objective  functions 
(especially  on  errcu'  propagation  in  the  least  squares  method). 

Until  the  single  bed  experiments  are  done  for  a  more  known  zeolite  (such  as  SA),  and 
until  the  parameter  estimation  problems  are  resolved,  it  will  not  be  possible  to  properly 
qualify  the  equipment  and  method. 

Dual  Bed  Apparatus 

The  dual  bed  PSA  unit  was  constructed  to  verify  the  three  component  feed  OBCXjS 
model.  Feed  mixtures  are  fed  to  the  unit;  outlet  composition  and  axial  penetration  of  the 
contaminant  are  measured. 

Construction/Description 

Figure  1 1  shows  the  schematic  of  the  two  bed  unit  Figure  12  is  a  photograph  of  the 
same  unit  The  overall  unit  is  based  on  the  design  of  the  Small  Oxygen  ConcentrahX’ 

(SOC)  of  Theis,  Ikcls,  and  Domes  (1985).  The  two  bed  system  is  constmcted  from  316 
stainless  steel.  The  total  bed  length  is  20  inches  (50.8  cm)  with  a  packed  length  of  about 
18  inches  (45.7  cm).  Wall  thickness  in  .065  inches  (0.165  cm).  One  bed  has  taps  every  4 
inches  (10.2  cm)  welded  onto  the  bed.  The  taps  are  threaded  fen:  1/8  inch  NFT  and  accept 
standard  Swagelok®  thermocouple  fittings.  Stainless  tubing  of  1/16  inch  O.D.  is  used  in 
place  of  thermocouples  in  these  taps.  The  sample  end  of  the  tubing  has  very  fine  screen 
welded  over  it  to  prevent  plugging  of  the  probe  by  zeolite  dust  The  probes  are  joined  to 
the  main  1/16  inch  O.D.  sample  line  using  a  union.  The  main  sample  line  leads  to  the  mass 
spectrometer  (HP  5970  Series  MSD).  ASCO  solenoid  valves  are  used  to  control  supply 
and  exhaust  pressures  on  the  beds.  These  valves  have  7/32  inch  orifices  and  are 
recommended  for  use  with  up  to  40  psi  pressure  differences  across  the  valve.  The  valves 
are  controlled  by  a  variable  timer  such  that  valves  numbers  1  and  3  are  open/closed  at  the 
same  time,  and  valves  2  and  4  are  closed/open  at  the  same  time.  One-way  check  valves 
with  1/3  psi  opening  pressure  are  used  to  prevent  backflow  of  product  into  the  beds  (in 
excess  of  the  bypass).  The  bj'pass  leg  is  a  section  of  316  stainless  microbore  tubing  12 
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inches  (30.5  cm)  long,  1/8  inch  O.D.,  and  0.6  mm  I.D.  All  other  tubing  is  1/4  inch  O.D.  x 
0.028  inch  wall  316  stainless  steel.  Product  rate  is  controlled  with  a  metering  valve  and 
monitored  with  a  rotameter. 

Qualification  Experiments 

Before  the  two  bed  system  was  qualified,  problems  were  identified  in  two  main 
areas.  The  first  problem  concerned  the  quality  of  the  supply  to  the  PSA  unit  In  previous 
studies  using  the  Brooks  AFB  S(X^,  results  obtained  for  steady  state  product  composition 
did  not  match  model  predictions  (binary  feed  model).  Initially,  it  seemed  that  the  model 
was  inadequate  to  predict  performance  of  this  unit  However,  in  view  of  the  model’s 
success  in  modeling  the  Bendix  unit  this  conclusion  appeared  suspect  Further  analysis 
indicates  that  the  SOC  is  quite  sensitive  to  fluctuations  in  inlet  pressure.  This  is  (in  part) 
because  of  the  very  short  cycle  time  of  this  unit  (the  supply  pressure  step  of  each  cycle  is 
only  4  seconds  in  oxygen  generation  with  zeolite  SA).  At  10  to  40  psig  (common 
experimental  conditions),  the  impedance  of  the  supply  line  to  the  S(X  was  large  enough  to 
cause  a  significant  variation  in  inlet  pressure  during  the  supply  part  of  the  cycle.  It  is 
believed  that  the  changing  supply  pressure  caused  the  poor  model  match  to  the  data  (the 
model  assumes  constant  supply  pressure  during  a  supply  step).  Thus,  the  new  system  had 
to  have  a  supply  plenum  to  minimize  this  effect 

The  second  problem  encountered  was  the  nature  of  the  contaminants  of  interest  to  the 
Army. 

C9.n.u>mi.pant5.,Cfl,n5i<?ff{Sd 

Table  1  is  a  table  of  contaminants  of  interest  to  the  Army.  Carbon  dioxide  is  the  only 
contaminant  that  is  non-toxic,  non-flammable,  and  gaseous  at  the  conditions  of  PSA 
operation.  The  condensible  substances  need  to  be  examined  at  high  temperature,  and,  in 
practice,  should  be  removed  with  filters  before  the  PSA  unit.  Because  carbon  monoxide 
has  the  same  molecular  weight  as  nitrogen,  the  mass  spectrometer  will  not  be  able  to 
distinguish  nitrogen  and  carbon  monoxide.  Toxic,  corrosive  substances  are  unacceptable 
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safety  risks  because  of  their  ability  to  corrode  seals  and  leak.  Exhaust  of  these  substances 
is  also  a  problem.  Finally,  ozone  is  unstable,  and  ammonia  is  too  small  and  polar  to  be 
removed  from  the  bed  in  an  exhaust  cycle.  Thus,  it  was  decided  to  work  on  carbon 
dioxide,  methane,  and  ethane.  The  flammability  hazard  is  manageable  through  proper 
design,  construction,  and  operation  of  the  system. 

Table  1 

Contaminant  List 


Contaminant 

Attributes 

Ammonia 

Small,  Polar,  Irreversible  (7) 

Carbon  Dioxide 

Non-Toxic,  Non-flammable 

Carbon  Monoxide 

Same  Molecular  Weight  as  Nitrogen 

Methanol 

Condensible  (Liquid) 

Ethanol 

Condensible  (Liquid) 

Aviation  Fuel 

Condensible  (Liquid) 

Methyl  Bromide 

Highly  Toxic,  Shii;^)ed  as  Liquid  at  13  psig 

N2O4/  2NO2 

Toxic,  Corrosive 

Ozone  (03) 

Unstable 

Freons 

Condensible 

Methane 

Flammable 

Ethane 

Flanunable 

Pssign.Gancsms 

The  design  of  the  ancillary  components  to  safely  and  effectively  run  the  two  bed  PSA 
unit  must  consider  possible  explosion  hazards  and  the  supply  requirements  of  the  unit.  The 
only  suitable  plenum  available  is  a  T-type  gas  cylinder.  These  cylinders  are  rated  to  3000 
psi.  In  order  to  foim  a  flow-through  plenum,  a  hole  is  drilled  in  the  center  bottom  and 
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tapped  to  3/4  inch  NFT  for  Uie  gas  inlet-explosicm  relief  assembly.  Adiabatic  flame 
calculations  indicate  that  explosion  of  a  methane  (or  ethane)  with  air  mixture  at  experimental 
conditions  could  generate  pressures  of  up  to  1000  psi  in  the  plenum.  Thus,  explosion 
relief  disks  with  a  burst  pressure  of  ISO  psi  have  been  specified  for  inlet  and  outlet  sides  of 
the  plenum.  One  way  check  valves  rated  to  1000  psi  have  been  specified  upstream  and 
downstream  of  the  plenum  in  an  attempt  to  minimize  any  overpressures  to  other  system 
components.  Explosion-proof  solenoids  have  also  been  specified  to  minimize  the  number 
of  potential  ignition  sources.  A  schematic  of  the  system  is  shown  as  Figure  13.  Because 
the  plenum  is  so  much  larger  than  the  bed,  inlet  pressure  variation  is  expected  to  be 
minimal. 

IxpgpmgnialPIan 

Carbon  dioxide  should  be  run  first  to  test  the  gas  mixing  system.  If  it  is  not  possible 
to  tightly  control  composition,  it  will  be  necessary  to  order  custom  mixtures  of  the  methane 
(ethane)  in  air.  Feeds  in  the  explosive  mixture  region  of  composition  will  npt  be  fed  to  the 
PSA  unit.  However,  as  the  gas  in  the  bed  becomes  enriched  in  oxygen,  the  mixture  may 
'  become  explosive  if  the  contaminant  (methane  or  ethane)  is  not  retained  by  the  bed. 

Operation  with  a  binary  feed  will  be  investigated  first.  The  volumes  on  this  unit  are 
I  slightly  larger  than  the  Brooks  SOC,  so  a  longer  cycle  time  may  be  merited.  The 

contaminated  feeds  will  be  run  the  the  unit  at  nominal  conditions  determined  by  the  binary 
feed  experiments. 

I  Discussion 

•  The  two  bed  apparatus  is  constructed  and  only  awaits  completion  of  the  supply 

I  network.  The  supply  network  has  been  specified  and  parts  are  under  construction. 

I  Contaminant  properties  have  hindered  progress  to  this  point 
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1 .  The  verificationi  work  for  the  contaminant  model  needs  to  be  completed. 

However,  even  without  these  data,  it  is  possible  to  make  the  following 

recommendations  regarding  the  model: 

a.  The  model  is  best  used  on  smaller  diameter  beds,  in  order  to  avoid 
problems  with  radial  effects  and  wall  heat  transfer. 

b .  The  model  will  be  most  reliable  in  modeling  non-polar 
contaminants  similar  in  size  to  oxygen  and  nitrogen. 

c.  Inlet  contaminant  concentrations  greater  than  S%  may  be  too  high 
for  the  model  to  give  reliable  predictions. 

2 .  The  parameter  estimation  problems  must  be  addressed.  Improvement  of  the 
model  to  include  the  Vacancy  Solution  Model  for  the  equilibrium  description 
cannot  occur  until  the  problems  with  estimating  the  parameters  of  this  model  are 
resolved.  This  may  involve  a  detailed  analysis  of  the  effects  of  different 
objective  functions  in  the  optimization  routine. 

3 .  For  larger  units,  the  effects  of  radial  gradients  need  to  be  studied.  In  particular, 
it  is  important  to  know  the  largest  bed  cross-section  that  can  be  reliably  designed 
ignoring  radial  gradients.  Industrial  sources  indicate  that  radial  temperature 
gradients  can  be  measured  in  beds  with  diameters  as  small  as  4  inches  (in  air 
separation).  However,  the  diameter  where  compositional  gradients  can  exist  is 
expected  to  be  somewhat  greater. 

4.  The  Vacancy  Solution  Model  needs  to  be  implemented.  This  equilibrium  model 
is  better  at  predicting  multicomponent  equilibria  that  the  simple  uncoupled 
approach  that  is  currently  being  used.  While  this  is  not  particularly  important  for 
low  concentration  streams,  it  is  critical  for  more  concentrated  streams. 


I 


S .  The  linear  driving  force  approximation  needs  to  be  critically  re-evaluated  in  the 
light  of  literature  criticisms  as  to  its  applicability  to  zeolites.  Utilization  of  more 
detailed  mass  transfer  mechanisms  will  involve  the  introduction  of  more 
parameters;  each  new  parameter  will  be  subject  to  some  uncertainty.  It  is  not 
clear  if  the  adoption  of  a  more  realistic  mass  transfer  mechanism  will  result  in 
greater  overall  model  accuracy  unless  the  uncertainties  in  the  introduced 
parameters  can  be  minimized. 
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Figure  1:  Simple  two  bed  PSA  system,  with  bypass 
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Figure  2;  Zeolite  A  and  X  structures,  left  and  right,  respectively 
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Figure  4;  Temperature  dependence  of  nitrogen  Kb  isotherm  parameter,  power  law  fit 
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Figure  6;  Linear  fit  of  two  parameter  model  to  nitrogen  data 
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Figure  9:  Single  bed  schematic 


Figure  10:  Single  bed  apparatus  photographs.  Top  photo  is  the  overall  system,  showing 
(left  to  right)  the  mass  spectrometer,  the  temperature  box,  the  HP  computer  system,  the 
IBM  XT  that  collects  pressure  and  temperature  information,  and  the  I/O  unit.  The  bottom 
photo  is  the  single  bed  inside  the  temperature  box. 
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l  igurc  12:  Dual  bed  apparatus  photographs.  Top  photo  is  the  I/O  unit  for  pressures  and 
temperatures.  The  bottom  photo  shows  (right  to  left)  the  two  bed  system,  mass  flow 
cono  oller  set,  and  the  rear  of  the  I/O  unit. 
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MFC  A 


Nomenclature 


bi 

C 

Q* 

Cf 


Ci 

Cs 

Db 

Dm 

Dp 

Dl 

F 

h 

bw 

k 


Ki 

Mr 

nr 

q 

Qi 

Q 

R 

Rp 

t 

t50 


Limit  adsorption  coefficient  for  component  i 

Total  gas  phase  concentration 

Interfacial  concentration  of  component  i 

Heat  capacity  of  fluid 

Gas  phase  concentration  of  component  i 

Heat  capacity  of  solid 

Diameter  of  bed 

Binary  molecular  diffusivity 

Dispersion  coefficient  for  particle 

Axial  dispersion  coefficient  for  fluid 

Mr  *  (oVcoo) 

Heat  transfer  coefficient  at  particle  surface 
Heat  transfer  coefficient  at  bed  wall 
Mass  transfer  coefficient 
Isotherm  coefficient  for  component  i 

Ratio  of  oxygen  molecular  weight  to  nitrogen  molecular  weight 

Saturation  parameter  in  VSM 

Total  adsorbed  phase  concentration 

Adsorbed  phase  concentration  of  component  i 

Pressure  ratio  in  temperature  dependence  of  isotherm  experiments 

Radial  direction  in  particle 

Radius  of  particle 

Time 

Time  to  50%  breakthrough  in  temperature  dependence  of  isotlierm 
experiments 


OBOGS  Report 


47 


Tf  =  Temperature  of  fluid 
Ts  =  Temperature  of  solid 
Tw  =  Temperature  of  wall 
u  =  Fluid  velocity 
yi  =  Flux  of  component  i 
z  =  Bed  distance 
Greek  Letters: 

a  =  Intraparticle  void  fraction 

aiv  =  Non-ideality  parameter  in  VSM 

|5  =  k(l-e)/e 

7  =  qB/bB 

AH  =  Heat  of  adsorption 

e  =  Void  fraction 

Xl  =  Axial  effective  thermal  conductivity 

H  =  (1-Kb/Ka) 

(0  =  Droop  flowrate 

COQ  =  Initial  mass  flowrate 

p  =  Bed  zeolite  density 

0  =  Fractional  surface  coverage 
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APPENDIX  A:  OBOGS  Model  Code,  Temperature  Correlated,  for  Oxygen/Nitrogen  Feed 
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PROGRAM  MSEV 
REALLIN.KA.KB 
BYTE  CONTINUE 
BYTELOWC 
BYTE  KEYIN 
BYTE NULL 
BYTE  YES 
BYTE  NO 

CHARACTER*64TEMP 
DIMENSION  W(3).X(3),CVA(3).PS{2),P(2) 

DIMENSION  WV(300,2),TV(300).XV{300,3) 

DIMENSION  DL(300).CA1(300),CA2(300),XA1{300.11), 

1  XA2(300.11) 

DIMENSION  IXABS1  (101,11 ) .lYABSI  (101,11  ).IXABS2(1 01,11), 
1  IYABS2(1 01,11) 

DIMENSION  1X1  (1 01  ).l  Y1  (1 01 )  .1X2(1 01  ),IY2(1 01 ) 

DIMENSION  JX(6.1 1).JY(6.1 1).JXERSH(6,1 1).JYERSH(6,1 1), 

1  JXERSL(6,11).JYERSL(6,11) 

DIMENSION  TI(11).NY(11) 

DIMENSION  XCA1  (300,1 1),XCA2(300,11),XBR02(200) 
COMMON/TIME/r 

COMMON/SYST/DT.PSUP,POUT,TF,WBRL,VS,VO,IIN,TCYC 

COMMON/GEOM/DBYIN,OVSIN,DVOIN,LIN,DIAOIN,DIAIIN 

COMMON/CAP/KA,KB.B,D.TEMP1 

COMMON/VOID/E 

COMMON/NFINISH/NEXIT 

COMMON/STEP/NSTEP,TSTEP1,TSTEP2.BRSTEP 

COMMON/NPRINT/NOUT1  ,TI,NY 

COMMON/BEDV/LUMPS.DZ 

COMMON/NBED/NBED,NB 

DATA  CONTINUE/67/ 

DATALOWC/99/ 

DATA  NULL/0/ 

DATA  YES/89/ 

DATA  NO/78/ 

17  CALL  MENU 

OPEN(UNIT-1,FILE-'MOLEFRAC',STATUS-’NEW) 

OPEN(UNIT-2.FILE-'FLOWRATE'.STATUS-’NE\flO 

OPEN(UNIT-3,STATUS-'SCRATCH’) 

OPEN(UNIT-4,FILE-'PROFILE'.STATUS-'NEW) 

OPEN(UNIT-8,STATUS-'SCRATCH') 

OPEN(UNIT-9,FILE-'REGIS'.STATUS-’NEW') 

IF(LUMPS.EQ.101  )THEN 

IINC-3 

ELSE 

IINC-6 

END  IF 

IF(NEXIT.EQ.1)GOTO900 
IF(NSTEP.EQ.1)GOTO20 
TSTEP1 -10000000. 

TSTEP2-1 0000000. 

BRSTEP-WBRL 
20  CONTINUE 
WRITE(6,7) 

7  FORMAT(//, 

1  . . . * . . . ) 

PRINT* 


PRINT*;  OBOGS SIMULATION’ 

PRINT* 

IINr:0 

ND=0 

CDBY.-..056/DBYIN 

IF(CDBY.GT.1.)CDBY-1. 

IF{CDBY.LT..6)CDBY=.6 

DBYM-DBYIN*.0254 

PRINT  *;  BYPASS  VALVE  DISCHARGE  COEFFICIENT  -  *,CDBY 
BYVA-3. 1 41 59*DBYM**2/4. 

VS-.8*(.0254*DVSIN)**2*3.14159/4. 

VO..8*(.0254*DVOIN)**2*3.14159/4. 

PRINT  *;  AREA  OF  BY-PASS  (M**2)  -  '.BYVA 
PRINT  *;  CD*AREA  SUPPLY  VALVE  (M**2)  -  ’.VS 
PRINT  *;  CD*AREA  OUTLET  VALVE  (M**2)  -  '.VO 

PRINT  *;  SUPPLY  PRESSURE(PSI)-*.PSUP;OLTLET  PRESSURE(PSI)-’,POLrr 

CVA(2)-CDBY*BYVA 

T-0. 

DT=.05 

DATAP*200. 

INC-IFIX(TF/(DATAP*DT)) 

NT-0 

IM-0 

P(1)«14.5 

P(2)-14.5 

X(2)-.20 

PRINT  *;  BREATHING  FLOW  (STD  LIT/M  IN)  -’.WBRL 
XBR-.20 

IF(NOUT1 -1)35,35,36 

35  CLOSE(UNIT-2,STATUS-'DELETE’) 

CLOSE(UNIT-4,STATUS-’DELETE') 

CLOSE(UNIT-9,STATUS.'DELETE’) 

WRITE(1,57) 

57  FORMATC  OXYGEN  MOLE  FRACTION’,24X,TIME’) 

G0T01 

36  IF(N0UT1  .EQ.4)  GOTO  37 
CLOSE(UNIT-1  ,STATUS-'DELETE’) 

CLOSE(UNIT-4,STATUS-*DELETE') 

CLOSE{UNIT-9,STATUS-’DELETE') 

WRITE(2,58) 

58  FORMATC  INLET  MASS  FLOWRATE’, T25;  OUTLET  MASS  FLOWRATE', T55, 
1’TIME’) 

G0T01 

37  CLOSE(UNIT-1,STATUS-’DELETE’) 

CLOSE(UNIT-2,STATUS-’DELETE’) 

CALL  FRAME1 
1  CONTINUE 
X(1)-,21 
X(3)-,21 

CALL  TIMEF(CVA,PH,PS,T,NBEO) 

CALL  BEDS(P,W,X,XBR,CVA,PS,DT,CA1  ,CA2,C1  ,C2) 

IF(NOUT1.EQ.4)  GOTO  77 
GO  TO  78 

77  DOIOOOK-1,11 
IF(NT.EQ.NY(K))GOTO150 
GO  T0 1000 

C  150  PRINT  */“*•** . * . . . . 

C  WRITE(6,170)TI(K) 
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C 1 70  FORMATC  MOLE  FRACTION  PROFILE  OF  OXYGEN  AT  T-'.F6.2.’  SECONDS') 

C  PRINT  *.'**“ . 

C  PRINT*,'  BEDCOORDINATE(IN.)',’  BED#1  '.'  BED#2' 

150  CONTINUE 
IF(MOD(K.2))  151,1000,151 

151  IF(K.GT.1)THEN 

CALL  INITIAL1  ( IY1(1),  IY2(1),  NB ) 

DOJ-2.LUMPS 

DLIN-LIN/(luiTps-1) 

DL(J)-(J-1)*DLIN 

IF(NB  .EQ,0)THEN 

CALL  DRAWF  ( 1X1  (J),  IY1(J),  1 ) 

ELSE 

CALL  DRAWF  ( IX2(J),  IY2(J),  1 ) 

END  IF 
END  DO 

CALL  INITIAL2  ( IY1(1),  IY2(1),  NB ) 

DOM=2,LUMPS 

IF(NB.EQ.0)THEN 

CALL  DRAWB  ( IX2(M),  IY2(M),  1 ) 

ELSE 

CALL  DRAWB  ( 1X1  (M),  IY1(M),  1 ) 

END  IF 
END  DO 
ELSE 
END  IF 

DOJ-2.LUMPS 

DLIN-LIN/(lumpS-1) 

DL(J)  -  (J-1)  *  DLIN 
END  DO 

IF(TTI.GT.0.0)THEN 

CALLNEWTIME(TTI,1) 

CALLNEWTIME(TI(K),0) 

IF(NBED.EQ.NB)THEN 

CONTINUE 

ELSE 

CALLFRAME2(NB,1) 

CALLFRAME2(NBED,0) 

END  IF 
ELSE 

CALLNEWTIME(TI(K),0) 

CALLFRAME2(NBED,0) 

END  IF 
TTI-TI(K) 

WRITE(4,110)TI(K) 

110  FORMATC  BED  COORDINATE',T20,'MOLE  FRACTION  IN  BED#1'.T46, 
1'MOLE  FRACTION  IN  BED#2',3X,'(TIMET-',F6.2,'SEC.)’,/) 

DO  L-1  .LUMPS 
XCA1(L.K)-CA1(L) 

XCA2{L,K)-CA2(L) 

ir(NBED.EQ.0)THEN 

XA1(L,K)»XCA1(L,K)/C1 

XA2(L,K)»XCA2(L.K)/C2 

IXABS1(L,K)»275+IINC*(L-1) 

IXABS2(L,K)«575-IINC*(L-1) 

CALL  SCALE1  (XA1  (L,K),IYABS1  (L,K)) 


if-' A'*  Va  L»»  S' 


l«*  ft*  4i‘ 


CALL  SCALE2(XA2(L,K).IYABS2(L.K)) 

ELSE 

M-LUMPS+1-L 
XA1(M.K)=XCA1(L.K)/C1 
XA2(M,K).XCA2(L,K)/C2 
IXABS2(L.K)-275+IINC*(L-1 ) 

IXABS1  (L.K)-575-IINC*(L-1 ) 

CALL  SCALE1(XA1(M,K),IYABS1(M,K)) 

CALL  SCALE2(XA2(M.K),IYABS2(M.K)) 

END  IF 
END  DO 

CALL INITIALI  ( IYABS1(1,K). IYABS2(1,K). NEED) 

DO  1=2, LUMPS 

IF(NBED  .EQ.0)THEN 

CALL  DRAWF  ( IXABS1  (I.K).  IYABS1  (I.K).  0 ) 

IX1(I)-IXABS1(I,K) 

IY1(I).IYABS1(I.K) 

ELSE 

CALL  DRAWF  ( IXABS2(I,K),  IYABS2(I,K),  0 ) 

1X2(1) .  IXABS2(t.K) 

IY2(I)  -  IYABS2(I.K) 

END  IF 

146  WRITE(4.300)  DL{I).  XA1{I.K).  XA2(I.K) 

300  FORMAT ( 5X,F6.3,14X,F10.6,16X.F10.6) 

END  DO 

CALL  INITIAL2  ( lYABSI(I.K).  IYABS2(1,K).  NBED) 

D0  255N-2.LUMPS 

IF  ( NBED  .EQ.O)  THEN 

CALL  DRAWB  ( IXABS2(N.K),  IYABS2(N,K).  0) 

IX2(N)  -  IXABS2(N,K) 

IY2(N)  -  IYABS2(N,K) 

ELSE 

CALL  DRAWB  ( IXABS1  (N.K),  I YABS1  (N.K),  0 ) 
IX1(N)-IXABS1(N,K) 

IY1(N)  =  IYABS1(N,K) 

END  IF 
NB-NBED 
255  CONTINUE 

XBRO22-XBR/1.05 
DY-XBR022 
DPY  -  DY  *  280.0 
IDY-IFIX(DPY) 

IABS-412-IDY 
IF(K.GT.1)THEN 
WR1TE(9,500)  lA 
500  FORMATC  P[695,*I3T) 

IF(IABS.LT.IA)THEN 

ID-IA-IABS 

WRITE(9,510)ID 

51 0  FORMATC  W{R,N0)V[M695,-'I3T) 

ELSE 

ID=IABS-IA 
WRITE(9,520)  ID 

520  FORMATC  W(R,N1)VnV[695,+'l3T) 

END  IF 
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ELSE 

WRtTE(9.530)  lABS 
530  FORMATC  P[695,412]V(,'I3T) 

END  IF 

WRITE(9,535) 

535  FORMATC  W(NO)’) 

C  WRITE(6.200)DL(I),XA1(I.K),XA2(I,K) 

C  200  FORMAT(8X,F6.3.11X,E10.4.7X,E10.4) 
lA-IABS 
1000  CONTINUE 
IF(NT,EQ.NY(11))THEN 

CLOSE(UNIT-9,STATUS-*SAVE*) 

REWIND  9 

OPEN(UNIT»9.FILE*‘REGIS*.STATUS-OLD') 

CALLTXTERASE(O) 

CALLREGISTART 

CALLPLTERASE 

9200  READ(9, 9220, END.9999)  TEMP 

WRITE(3.*)TEMP 
TYPE  9220, TEMP 
9220  FORMAT(A) 

GO  TO  9200 

9999  CALLREGISOUT 

CLOSE(UNIT-9,STATUS-'DELETE’) 

WRITE(6,94S0) 

9450  FORMATC  PRESS  T  TO  CONTINUE :  *) 

9400  READ(5,*)  KKKK 

IF(KKKK.EQ,1)THEN 

CALLTXTERASE(O) 

CALLREGISTART 
CALL  PLTERASE 
CALLREGISOUT 
ELSE 

GO  TO  9400 
END  IF 
GO  T0 17 
ELSE 
GO  TO  6 
ENDIF 

78  IF(MOD(NT,INC))5,5,6 
5  iM.IM+1 

XBRO2(IM)-XBR/1.05 
IF{NOUT1.EQ.1)THEN 
WRITE(1.84)  XBR02(IM),T 
84  FORMAT  (6X, FI  0.0, 25X,  FI  0.3) 

82IF(ND.EQ.O)  THEN 
CALLTXTERASE  (255) 

CALLREGISTART 
CALLPLTERASE 
CALL  FRAME 

;  TYPE 80 

i  80  FORMATCIP(1 30,330]',$) 

GO  TO  47 
ELSE 

CALL  STIME(T,IX,TF,600.,130) 

!  CALL  SCALEM(XBR02(IM),IY,1 .0,1 .0) 

;  TYPE85.IX.IY 

i 

I 

I 
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85  F0RMAT(’!V[’I3’,*I3T.$) 

END  IF 

ELSE  IF(N0UT1  .EQ.2)  THEN 
IF(ND.EQ.O)THEN 
CALL  TXTERASE  (255) 

CALLREGISTART 
CALLPLTERASE 
CALL  FRAME 
Pi'PESe 

86  FORMATC!P[130.3301'.$) 

GO  TO  47 

ELSE 

CALL  STIME(T.IX.TF.600..130) 

CALL  SCALEM(WV(ND.1).IY, 0.08.0.1) 

TYPE87.IX.IY 

87  FORMAT{'!Vri3*.*l3T.$) 
WRITE(2,68)WV(ND.1).WV(ND.2).T 

68  FORMAT{8X,F1 0.6,1 1X.F1 0.6,1  OX, FI  0.3) 

END  IF 

ELSE  IF(N0UT1.EQ.3)  THEN 
IF(ND.EQ.0)THEN 
CALL  TXTERASE  (255) 

CALLREGISTART 
CALLPLTERASE 
CALL FRAME 
TYPE  88 

88  FORMATCIP[1 30.330]'.$) 

GO  TO  47 

ELSE 

CALL  STIME(T.IX.TF.600..130) 

CALL  SCALEM(WV(ND.2).IY.0.08,0.1) 

TYPE89.IX.IY 

89  F0RMAT('!V('I3'.'I3']'.$) 
WRITE(2,69)WV(ND.1).WV(ND.2),T 

69  FORMAT(8X.F1 0.6,1 1  X.FI 0.6,1 0X,F1 0.6,6X,F10.3) 
END  IF 

ELSE 
GO  TO  82 
END  IF 

47  CONTINUE 
ND-ND+1 
IF(PH-180.)2,3,3 

2  WV(ND,1)-W(3) 

WV(ND,2)-W(1) 

GO  TO  4 

3  WV(ND,1)-W(1) 

WV(ND,2)-W(3) 

4  XV{ND.1)-XBR02(IM) 

XV(ND,2)»0. 

XV(ND,3)-1. 

TV(ND)-T 

6  NT=NT+1 
T-T+DT 

IF  ( T.LT.TSTEP1  .AND.  T.LT.TF )  THEN 

WBRLOLD-WBRL 

GOT01 

ELSE  IF  ( T.GE.TSTEP1  .AND.  T.LT.TSTEP2 )  THEN 
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WBRL-BRSTEP 

G0T01 

ELSE  IF  ( T.GE.TSTEP2  .AND.  T.LE.TF )  THEN 

WBRL-WBRLOLD 

GOT01 

ELSE 

WBRL  =  WBRLOLD 
GOT0 18 
END  IF 

18  CONTINUE 
CALLREGISOUT 
WRITE{6.42)NULL 

42  FORM  AT(A.'  PLEASE  PRESS  "1  *  TO  CONTINUE :  *) 

44  READ(5.*)KKKK 

IF(KKKK.EQ.1)THEN 

CALLTXTERASE(O) 

CALLREGISTART 
GO  TO  43 
ELSE 
GO  TO  44 
END  IF 

43  CALLPLTERASE 
CALLREGISOUT 

100  FORMAT(14X,8E12.3) 

GOT0 17 
900WRITE(6.910) 

910  FORMAT(///////'****‘**** . ***‘****“*7////. 

1*  PROGRAM  TERMINATED  BY  OPERATOR’, 

mur . ************************<  jiiiii) 

END 

BLOCK  DATA 
REALLIN.KA,KB 

COMMON/SYST/DT,PSUP,POUT,TF,WBRL,VS,VO.IIN.TCYC 
COMMON/GEOM/DBYIN,DVSIN,DVOIN,LIN,DIAOIN,DiAIIN 
COMMON/CAP/KA,KB.B.D, TEMPI 
COMMONA^OID/E 

DATADT,PSUP,POUT,TF,WBRL,VS,VO,IIN.TCYC/.05.40.,15.,30.. 

1  10., 0.,0., 0,10.7/ 

DATADBYIN,DVSIN,DVOIN,LIN,DIAOIN,DIAIIN/ 

1  .075,.306174„43866, 15.5,5.73,2.18/ 

DATAKA,KB,B,D/.153,.049,2,65,200./ 

DATA  E/.37/,TEMP1/20./ 

END 

SUBROUTINE  MENU 
REAL  LIN,KA,KB.LIN1  .KA1  ,KB1 
DIMENSION  TI(11),NY(11) 

COMMON/SYST/DT,PSUP,POUT.TF.WBRL,VS,VO.IIN.TCYC 
COMMON/GEOM/DBYIN.DVSIN,DVOIN,LIN,DIAOIN,DIAIIN 
COMMON/BEDV/LUMPS,DZ,L,D1  ,D2,MA,MB,RT,AI,AO,AMW01  .AMWLI  ,AMW02, 
AMWL2,WBR 
COMMONA/OID/E 
COMMON/CAP/KA,KB,B,D,TEMP1 
COMMON/NFINISH/NEXIT 
COMMON/STEP/NSTEP,TSTEP1,TSTEP2,BRSTEP 
COMMON/NPRINT/NOUT1  ,TI,NY 


NEXIT-0 

NSTEP-0 

10CALLSYST1 

CALLGE0M1 

CALLCAP1 

WRITE(7.107) 

WRITE(6.107) 

107  FORMATC  ENTER  CORRESPONDING  PARAMETER#  TO  CHANGE  PARAMETER’/, 
1 '  ENTER  "O-  TO  RUN  SIMULATION,’, 

2'  -59"  TO  STEP  THE  BREATHING  FLOWRATE’/, 

4’  ENTER  -99-  TO  EXIT  PROGRAM*) 

N-0 

READ‘.N 

IF(N.EQ.  0)  GOTO  600 
IF(N.EQ.59)  GOTO  500 
IF(N.EQ.99)  GOTO  900 
EPS1-.0000001 
WRITE(7,120) 

WRITE(6,120) 

1 20  FORM AT(///, . . 

1  //,'  ENTER  THE  PARAMETER  AND  PRESS  -RETURN",/, 

2//T40.'CURRENT  VALUE’,/) 

IF(N.LT.6)GOTO100 
IF{N.LT.12)GOTO200 
1F(N.LE.16)GOT0300 
GOTO  800 
100  CONTINUE 
IF(N-2)159.155,155 
155IF(N-3)164,171,171 

171  IF{N-4)1 70,1 75,1 74 
159WRITE(6,160)PSUP 

WRITE(7,160)  PSUP 

1 60  FORMATC  SUPPLY  PRESSURE  (PSIA)’,T40,F8.4,/) 

READ*,PSUP1 
IF(PSUP1.LT.ESPI)  GOT0 10 
PSUP=PSUP1 
GOT0 10 

164WRITE(6,166)P0UT 

1 66  FORMAT!’  OUTLET  PRESSURE  (PSIA)’,T40,F8.4,/) 

READ*,POUT1 
IF(POUT1  .LT.EPSI)  GOT0 1 0 
POUT-POUT1 
GOT0 10 

170WRITE(6.172)TF 

1 72  FORMAT!'  FINAL  OBSERVATION  TIME  !SEC)',T40.F8.4,/) 

READ*,TF1 

IF!TF1  .LT.EPSI)  GOT0 10 

TF-TF1 

GOT0 10 

175WRITE!6,177)TCYC 
1 77  FORMAT!'  CYCLE  TIME  !SEC)',T40,F8.4/) 

READ*,TCYC1 
IF!TCYC1. LT.EPSI)  GOT0 10 
TCYC-TCYC1 
GOT0 10 

174WRITE!6,176)  WBRL 

1 76  FORMAT!'  BREATHING  MASS  FLOWRATE  !STD  LIT/MIN)’,T40,F8.4,/) 
READ*,WBRL1 
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IF(WBRL1  .LT.EPSI)  GOT0 178 
WBRL-WBRL1 
GOT0 10 
178  GO  T0 10 
200  CONTINUE 
IF(N-7)  209.215,205 
205  IF(N-9)  225,235,207 
207  IF(N-IO)  235,245,255 
209WRITE(6.210)  DBYIN 

210  FORMATC  BY-PASS  VALVE  DIAMETER  (IN)*,T40,F8.4,/) 
READ*,DBYIN1 
IF{DBYIN1  .LT.EPSI)  GOT0 10 
DBYIN-DBVIN1 
GOT0 10 

215WRITE(6,220)DVSIN 

220  FORMATC  SUPPLY  VALVE  DIAMETER  (IN)*.T40.F8.4./) 
READ*,DVSIN1 
IF(DVSIN1. LT.EPSI)  GOT0 10 
DVSIN-DVSINI 
GOT0 10 

225WRITE(6,230)DVOIN 

230  FORMATC  OUTLET  VALVE  DIAMETER  (IN)',T40.F8.4./) 
READ*,DVOIN1 
IF(DVOIN1  .LT.EPSI)  GOT0 10 
DVOIN=DVOIN1 
GOT0 10 

235WRITE{6.240)  LIN 

240  FORMATC  BED  LENGTH  (IN)',T40,F8.4y) 

READ*,LIN1 

IF(LIN1. LT.EPSI)  GOTO  10 

LIN=LIN1 

GOT0 10 

245WRITE(6,250)  DIAOIN 

250  FORMATC  OUTER  BED  DIAMETER  (IN)*,T40.F8.4y) 
READ*,DIAOIN1 
IF(DIAOIN1  .LT.EPSI)  GOT0 10 
DIAOIN-DIAOIN1 
GOT0 10 

255WRITE(6,260)DIAI1N 

260  FORMATC  INNER  BED  DIAMETER  (IN)*,T40,F8.4y) 
READ*,DIAIIN1 
IF(DIAIIN1  .LT.EPSI)  GOT0 10 
DIAIIN.DIAIIN1 
GOT0 10 
300  CONTINUE 
IF(N-1 3)309,325,305 
305  IF(N-15)335, 345,10 

309  WRITE(6,310)  TEMPI 

31 0  FORMATC  TEMPERATURE  (C)',T40,F8.4,/) 
READ*,TEMP2 

IF(TEMP2.LT.EPSI)  GOT0 10 
TEMPI -TEMP2 
GOT0 10 

325WRITE(6,330)B 
330  FORMATC  B',T40.F8.4,/) 

READ*,B1 

IF(B1  .LT.EPSI)  GOTO  10 
B=B1 


GOT0 10 

335WRITE(6,340)D 

340  FORMATC  DIFFUSION  COEFFICIENT  (>100.)’.T40.F8.4,/) 

READ*,D1 

IF(DI.LT.EPSI)  GOT0 10 

D=D1 

GOT0 10 

345  WRITE(6.350)  E 

350  FORMATC  VOID  FRACTION  (<1  .)'.T40.F8.4y) 

READ*, El 

IF(E1.LT.EPSI)GOTO10 

E=E1 

GOT0 10 

500WRITE(6,510)TF 

WRITE(7.510)TF 

510  fORMAT(////'***********‘**********‘*******“******************7/. 

1  •  ENTER  THE  TIME  AT  WHICH  THE  STEP  CHANGE7 
2'  IN  BREATHING  FLOWRATE  IS  TO  OCCURVA 
3’  THE  FINAL  OBSERVATION  TIME  IS  CURRENTLY  AF7.2,*  SECONDS';//) 
NSTEP-1 
READ*,TSTEP1 
515WRITE{6.518)TF 
WRITE(7.518)TF 

518  fORMAT(////'****“******‘******************************‘* . 'll, 

1'  ENTER  THETIME  AT  WHICHTHE  STEP  CHANGE'; 

2'  IN  BREATHING  FLOWRATE  IS  TO  END';/, 

3'  THE  FINAL  OBSERVATION  TIME  IS  CURRENTLY '.FT.a.*  SECONDS';//) 
READ*  TSTEP2 

WRITE(7.520)  TSTEP1  ,TSTEP2,WBRL 
WRITE(6.520)  TSTEP1  ,TSTEP2,WBRL 
520  fORMAT(//'**************************************************'//, 

1 '  ENTER  THE  NEW  BREATHING  FLOWRATE  OCCURING  AS';, 

2'  A  STEP  CHANGE  FROM  T-  ',F7,2,'  TO  T-  ’,F7.2,'  SECONDS';/, 

3'  THE  CURRENT  BREATHING  FLOWRATE  IS’,F6.2,'  STD  LIT/MIN’///) 
READ*,BRSTEP 

WRITE{7,530)  BRSTEP.TSTEP1  ,TSTEP2 
WRITE{6.530)  BRSTEP.TSTEPI  ,TSTEP2 
530  FORMAT(////. 

1 . * . . . 

2'  THE  BREATHING  FLOWRATE  OF  '.F6.2.'  STD  LIT/MIN',/ 

3'  WILL  BE  INPUT  AS  A  STEP  AT  T-  •,F7.2, '  SECONDS'/, 

3'  AND  WILL  END  AT  T-  '.F7.2, '  SECONDS'////, 

4'  . . 

GOTO 10 
600  CONTINUE 
WRITE(7,610) 

WRITE(6,610) 

61 0  FORM AT(//////, . ******',/////, 

.'  THE  FOLLOWING  PLOTS  ARE  AVAIUBLE  TO  YOU  ON  THE  TERMINAL';//, 

.'  1  MOLE  FRACTION  OF  OXYGEN  VS.TIME  (DATA  FILE-MOLEFRAC.DAT)';, 
.'  2  INLET  MASS  FLOWRATE  VS.  TIME  (DATA  FILE-FLOWRATE.DAT)', /, 

.'  3  OUTLET  MASS  FLOWRATE  VS.  TIME  (DATA  FILE-FLOWRATE.DAT)';, 

.'  4  A  DYNAMIC  SIMULATION  FOR  ONE  CYCLE  (OXYGEN  VS.  TIME,',/, 

.'  DATA  FILE-PROFILE.DAT)', 

.////, 

.'  PRESS  THE  CORRESPONDING  #  TO  HAVE  THE  OUTPUT  SHOWN  AS  THE',/, 
.'  SIMULATION  TRANSPIRES',/////) 

READ(5,630)NOUT1 
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630  FORMAT(l1) 

IF(NOUT1  .EQ.4)  GOTO  750 
GO  TO  400 
750  DTI-I.O 
DOJ=1.10 
TI(J)=TI(J-1)+DTI 
NY(J)=IFIX(Tl(J)/DT) 

END  DO 

TI(11)-TCYC 

NY(11)=IFIX(TI(11)/DT) 

GO  TO  400 
400WRITE(6,410) 

WRITE(7,410) 

41 0  FORMAT(////;  YOU  HAVE  THE  FOLLOWING  OPTIONS  : 

./////.TIO.'I .  ENTER  "0"  TO  RUN  SIMULATION.*;, 

.T10,*2.  ENTER  -19-TO  CHANGE  THE  PARAMETERS.*,/, 

.T10,*3.  ENTER  **99**  TO  EXIT  PROGRAM.*,/////, 

.*  ENTER  THE  CORRESPONDING  #  AND  PRESS  "RETURN"*,/////) 

READ*,N69 
IF(N69.EQ.O)  GOTO  820 
IF(N69.EQ.19)  GOT0 10 
IF(N69.EQ.99)  GOTO  900 
800  CONTINUE 
WR1TE(7.810) 

WRITE(6,810) 

810  FORMAT(/////, . . ,/////, 

1  •  THE  PARAMETER  VALUE  WAS  NOT  INPUT  CORRECTLY*/ 

2*  TRY  AGAIN*,/////,**************"*****************,////) 

GOT0 10 
820WRITE(6,825) 

WRITE(7,825) 

825  FORM  AT(////,*  DO  YOU  WISH  TO  DOUBLE  THE  NUMBER  OF  SPACE  LUMPS  IN*/, 
1  *THE  SIMULATION  FOR  BETTER  ACCURACY  ?  ( CURRENT  NUMBER  USED  */, 

2*  IS  50)  (Y/N)*,/////) 

READ  (5,830)  KEYIN 
830 FORMAT(A) 

IF(KEYIN.EQ.YES)THEN 

LUMPS -101 

ELSE 

LUMPS -51 
END  IF 
GO  T0 1000 
900  CONTINUE 
NEXIT-1 
1000  RETURN 
END 

SUBROUTINE  SYST1 

COMMON/SYST/DT,PSUP,POUT,TF,WBRL,VS.VO,IIN,TCYC 
WRITE(6.350)PSUP,POUT,TF,TCYC,WBRL 
WRITE(7,350)PSUP,POUT,TF,TCYC,WBRL 
350  FORMATC  CURRENT  SYSTEM  PARAMETERS  ARE:*/, 

1*  1  .’.TS.*  SUPPLY  PRESSURE-*, T30,F8.2,T40,*PSIA*,/, 

2*  2.*,T5,*  OUTLET  PRESSURE-*, T30,F8.2,T40,*PSIA’/, 

3*  3.',T5,*  FINAL  OBSERVATION  T!ME-*,T30,F8.2,T40,’SEC'/, 

4*  4.*,T5,*  CYCLE  TIME=',T30,F8.2,T40,’SEC*,/, 

5*  5.*,T5,*  BREATHING  FLOWRATE-*,T30,F8.2,T40.*STD  LIT/MIN*) 

RETURN 
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END 

SUBROUTINE  GE0M1 
REALLIN 

COMMON/GEOM/DBYIN,DVSIN,DVOIN.LIN,DIAOIN,DIAIIN 
WRITE(6.450)  DBYIN.DVSIN.DVOIN.LIN.DIAOIN.DIAIIN 
WRITE{7,450)  DBYIN.DVSIN.DVOIN.LIN.DIAOIN.DIAIIN 
450  FORMATC  CURRENT  GEOMETRIC  PARAMETERS  ARE:7. 
r  e.'.TS;  by-pass  valve  diameter  -  ■.T30.F8.4,T40,‘IN7. 

2*  y.'.TS,'  SUPPLY  VALVE  DIAMETER  » •.T30,F8.4.T40.*IN7. 

3'  8.’,T5.*  OUTLET  VALVE  DIAMETER  -  •,T30.F8.4,T40.'IN7, 

4’  9.'.T5.’  BED  LENGTH  =  •,T30.F8.4.T40.*IN7. 

5*  lO.'.TS;  OUTER  BED  DIAMETER  -  •,T30,F8.4.T40;IN7, 

6'  1 1  .’.TS,’  INNER  BED  DIAMETER  « *.T30.F8.4,T40.’IN') 

RETURN 

END 

SUBROUTINE  CAP1 
REAL  KA, KB 

COMMON/CAP/KA.KB.B,D.TEMP1 

COMMON/VOID/E 

KA-.  1 423275+.001 83744‘TEMP 1  +.0000072443‘TEMP1  “2 

KB-.03654573+.00095775*TEMP1+.00001321*TEMP1*‘2 

B»3.0591250816 

WRITE(7.550)TEMP1  .B.O.E.KA.KB 
WRITE(6.550)TEMP1  .B.O.E.KA.KB 
550  FORMATC  THE  CURRENT  BED  PARAMETERS  ARE;7, 
r  12/.T5.’  TEMPERATURE  « '.T30.F8.3.T40.’DEQREES  C7. 

2‘13.'JS,'B  =  *.T30,F8.4,/. 

3*  14.',T5.'  DIFFUSION  COEFFICIENT  -  •,T30,F8.2.T40.*1/SEC7. 

4'  15/.T5.'  VOID  FRACTION  -  '.T30.F8.3./, 

5  T5.*  AT  THIS  TEMPERATURE,  KA  -  •,T30,F8.4,T40, 

6  KGMOLES  02  ADSORBED/KGMOLE  GAS'./, 

7  T5.21  X.'  KB  =  •,T30.F8.4,T40.'KGMOLES  N2  ADSORBED/KGMOLE  GAS’) 
RETURN 

END 

SUBROUTINETIMEF(CVA,PH,PS,T,NBED) 

C****“CALCULATES  CVA(T)  AND  PS(T) 

DIMENSION  CVA(3),PS(2) 

DATAPHI.PH1.PH2.PH3,PH4,PH5.PH6/10..20.,160..180.. 

1  200.,340..360./ 

COMMON/SYST/DT,PSUP.POUT,TF.WBRL,VS.VO,IIN,TCYC 

C*..... . . . . . . 

C 

C  PH -PHASE  ANGLE  OF  CYCLE  (DEGREES) 

C  TCYC- CYCLE  TIME  (SEC) 

C 

C“* . . . 

1=0 

PH=AMOD(360.*T/TCYC+PHI,360.) 

IF(PH-PH1)1,2,2 

1  RA-PH/PH1 
G0T011 

2  IF(PH-PH2)3,4,4 

3  RA-1. 


G0T011 

IF(PH-PH3)5,6,6 
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5  RA-(PH3-PH)/(PH3-PH2) 

GO  Toil 

6  IF(PH-PH4)7,8,8 

7  RA=(PH-PH3)/(PH4-PH3) 

1*1 

GO  Toil 

8  IF(PH-PH5)9,10,10 

9  RA=1. 

1-1 

GO  Toil 

10  RA-(PH6-PH)/(PH6-PH5) 

1-1 

11  NBED-I 
IF{I)12.12.13 

12  PS(1)-PSUP 
PS(2)sP0UT 
CVA(1)»VS*RA 
CVA(3)-VO*RA 
RETURN 

13  PS(1)-POUT 
PS(2).PSUP 
CVA(1)-VO*RA 
CVA(3)-VS*RA 
RETURN 

END 

SUBROUTINE  INITIAL(C1  ,C2,N1  .N2.X.P) 

REAL  L,MA.MB,NA01  .NA02,KA.KB.N1  ,N2.NB01  ,NB02,LIN 
DIMENSION  N1  (300.2).N2(300,2).X(3).P(2) 

COMMON/BEDV/LUMPS,DZ.L,Dl  ,D2.MA,MB.RT.AI.AO.AMW01  .AMWL1  ,AMW02 
1  ,AMWL2,WBR 

C0MM0N/CAP/KA,KB,B.D.TEMP1 

COMMONA/OID/E 

common/geom/dbyin,dvsin,dvoin.lin.diaoin,diaiin 


c 

C  RT  -  GAS  CONSTANrTEMP  (N-M/KGMOLE) 

C  AITOT.  AOTOT  -  INLET  AND  OUTLET  CONCENTRIC  BED  AREAS  (M'  *2) 
C  MA.MB  -  KGMOLECULAR  WEIGHTS  (KG/KGMOLE) 

C  O.L- SUBSCRIPTS  FOR  Z-0  AND  Z-L 

C  AMW  -  AVERAGE  MOLECULAR  WEIGHT  (KG/KGMOLE) 

C  1 ,2  -  SUBSCRIPTS  FOR  BED  1  AND  BED  2 

C  E- VOID  FRACTION 
C  TEMPI -TEMPERATURE  (DEGREES  C) 

C‘*** . * . . . . . 

RT-8314.*(TEMP1+273.16) 

AITOT-3.14159*(DlAllN*,0254)**2/4. 

AOTOT-3.14159*(DIAOIN**2-DIAIIN**2)*.0254**2/4. 

L-.0254^LIN 

PRINT  BED  LENGTH  (M)  -  ',L 

PRINT  *,'  INLET  BED  AREA  (M**2)  - AITOT 

PRINT  •;  OUTLET  BED  AREA  (M**2)  -  '.AOTOT 

MA-32, 

PRINT  VOID  FRACTION  -  ',E 
MB-28. 

AI»AITOT*E 

AO-AOTOT‘E 

AM  W01  -M  A*X(1  )+MB*(1  .-X(1 )) 
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AMWL1  .MA*X(2)+MB*(1  .-X(2)) 

AMW02-AMWL1 
AMWL2-MA‘X(3)+MB*(1  .-X(3)) 

C1=P(1)*6.895E3/RT 

C2=P(2)*6.895E3/RT 

CA1=C1*X(1) 

CA2=C2*X(3) 

CB1-C1-CA1 

CB2-C2-CA2 

NB01»(CB1/KB)/{1.+CB1/(KB*B)) 

NA01-CA1/KA 

NB02-(CB2/KB)/(1  .•t-CB2/(KB*B)) 

NA02-CA2/KA 
D01 1-1  .LUMPS 
N1(I,1)-NA01+NB01 
N1(I.2)-NA01 
N2(l,1)-NA02-i-NB02 
1  N2(I,2)-NA02 
DZ.L/FL0AT(LUMPS-1) 

RETURN 

END 

SUBROUTINE  BEDS(P,W,X.XBR,CVA,PS,DTG.CA1  .CA2.C1  ,C2) 

C“**“SOLVES  BED  EQUATIONS 
REALL,N1,N2,MA,MB 

DIMENSIONCA1(300),CA2(300),N1(300,2),N2(300,2),G1(300,2), 

1  G2(300,2) 

1  ,W(3),X(3),CVA(3).PS(2),PN(2),P{2),XT(2),XO(2) 

COMMON/BEDV/LUMPS,DZ,L,D1  ,D2,MA,MB,RT,AI,AO,AMW01  .AMWLI  .AMW02 

1  ,AMWL2,WBR 

COMMONWOID/E 

COMMON/SYST/DT,PSUP,POUT.TF,WBRL,VS.VO,IIN.TCYC 

COMMON/CAP/KA.KB.B.D.TEMP1 

COMMON/TIME/T 

c 

C  C  «  TOTAL  GAS  STREAM  CONCENTRATION  (KGMOLE/M**3) 

C  CA  -  GAS  A  STREAM  CONCENTRATION  (KGMOLE/M**3) 

C  N  -  ADSORBED  PHASE  CONCENTRATION  (KGMOLE/M‘*3) 

C  G  -  GAS  PHASE  CONCENTRATION  (KGMOLE/M“3) 

C  U  .  STREAM  VELOCITY  (M/SEC) 

C  Y  -  MOLECULAR  FLUX  (KGMOLE/M**2-SEC) 

C  L-BED  LENGTH  (M) 

C  D- DIFFUSION  COEFFICIENT  (1/SEC) 

C  BETA -D*AREA  RATIO  (1/SEC) 

C  DT- TIME  STEP  (SEC) 

C  LUMPS -NUMBER  OF  SPACE  LUMPS 
C  1,2 -SUBSCRIPTS  FOR  BED  1  AND  BED  2 
C  VBR  -  MIXING  VOLUME  FOR  BREATHING  FLOW  (M**3) 

C  BR  -  SUBSCRIPT  INDICATING  BREATHING  VARIABLE 
C  CP -PLENUM  MOLE  CONCENTRATION  (KGMOLE/M“3) 

C  VP  »  BREATHING  PLENUM  VOLUME  (M“3) 

C 

. . . . 

DT-DTG 
DO  4 1-1,2 

4  PN(I)-PS(I)*6.895E3 
IF(IIN.EQ.1)G0T01 


IIN-1 

CALL  INmAL(C1  ,C2,N1  .N2,X,P) 

VPMUL-1. 

VP-.0018*VPMUL 

PRINT  PLENUM  VOLUME  (M**2)  -  '.VP 

DO  1=1,7 

PRINT* 

END  DO 

WRITE(6,10)NULL 

10  FORMAT(A.’  PLEASE  WAIT . *) 

VBR-.5*VP+.0003 
CP=  .95*AM  AX1  (PN(1 )  ,PN(2))/RT 
DO  3 1=1,2 
3  XT(I)=XBR 

1  Dl-D 
D2-D 

WBR-WBRL*4.72E-5/2.205 

CALL  CONCEN(C1  ,C2,CA1  ,CA2.W,G1  .G2.X,N1  .N2.PN,CVA) 

XBR-XT(2) 

AMWBR.MA*XBR-t-MB*(1  .-XBR) 

DO  5 1-1,2 
5  XO(l)=XT(l) 

DO  2 1=1, LUMPS 

N1  (1,1  )=N1  (1.1  )-Dl  *(G1  (l.1)-C1)*DT 
N1  (1.2)-N1  (l.2)-D1  *(G1  (l.2)-CA1  (l))*DT 
N2(l,1  )-N2(l,1  )-D2*(G2(l,1  )-C2)*DT 
N2(I.2)-N2(I.2)-D2*(G2(I.2)-CA2(I))*DT 

2  CONTINUE 
FAC-CP*VBR*AMWBR 
TAUI-WBR/FAC 

XT(1)=XO(1)+TAUI*(X(2)-XO(1))*DT 

XT(2)-XO(2)+TAUI*(XO(1)-XO(2))*DT 

P(1)«C1*RT/6.895E3 

P(2)-C2*RT/6.895E3 

AM  W0 1  -M  A*X(1  )+MB*(1  .-X(  1 )) 

AMWL1  -MA*X(2)+MB*(1  .-X(2)) 

AMW02-AMV\(L1 
AMWL2-MA*X(3)+MB*(1  .-X(3)) 

RETURN 

END 

SUBROUTINE  CONCEN(CG1  .CG2,CA1  ,CA2.W,G1  .G2,X,N1  ,N2,PN,CVA) 
C*****SOLVES  FOR  CONCENTRATIONS 
REALL,N1,N2,MA,MB 

DIMENSION  CA1(300),CA2(300).N1  (300, 2),N2(300, 2), G1  (300,2), 

1  G2(300.2) 

DIMENSION  GI1  {300),GI2(300),PN(2).W(3).X(3),CVA(3) 
COMMON/BEDV/LUMPS,DZ,L,D1,D2.MA,MB,RT,AI,AO,AMW01  ,AMWL1  ,AMW02 
1  ,AMWL2,WBR 
COMMON/VOID/E 

COMMONA/BEQAV1  ,W2,W3,U01  ,UL1  .U02.UL2,PN1  ,PN2,VA1  ,VA2,VA3 
1  ,BGI1  L,BGI1L2,BGI2L,BGI2L2,BL21  ,BL22,P1  ,P2 
C . * . . 

c 

c  P- BED  PRESSURE  (N/M**2) 

C  PN- SUPPLY  PRESURES  (N/M**2) 

C  U  -  STREAM  VELOCITY  (M/SEC) 

C  W  =  MASS  FLOWRATE  (KG/SEC) 
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C  CVA- DISCHARGEC0EFFICIENTTIMESVALVEAREA(M**2) 

C  C  =  TOTAL  GAS  STREAM  CONCENTRATION  (KGM0LE;M**3) 

C  CA  -  GAS  A  STREAM  CONCENTRATION  (KGMOLE/M**3) 

C  Z  =  BED  DISTANCE  COORDINATE  (M) 

C  Y  -  MOLECUUR  FLUX  OF  GAS  A  -  CA*U  {KGMOLE/M“2-SEC) 

C  X  =  MOLE  FRACTION  OF  GAS  A 
C 

C . . . . . ****** . 

VA1»CVA(1) 

VA2=CVA{2) 

VA3=CVA(3) 

BETA1=(1.-E)*D1/E 

BETA2«(1.-E)*D2/E 

PN1-PN(1) 

PN2-PN(2) 

BL21-BETA1*.5*L 

BL22-BETA2*.5*L 

C1-CG1 

C2>CG2 

C*‘****CALCULATE  G  AND  INTEGRAL  OF  G 
GI1(1}«0. 

GI2(1)>.0. 

DO  1M  .LUMPS 
CALLCAPZ(N1.G1.I) 

1  CALLCAPZ(N2.G2,I) 

DO  2  U2, LUMPS 
IM1«M 

GI1  (l)»GI1  (IM1  )+DZ*(G1  (1.1  )+G1  (IM1 .1  ))/2. 

2  GI2(l)=.GI2(IM1)+DZ*(G2(l.1)+G2(IMl.1))/2. 

LUM2=(LUMPS+1)/2 

BGI1l2-BETArGI1(LUM2) 

BGI1 L-BETA1  *GI1  (LUMPS)-BGII  L2 
BGI2L2.BETA2*GI2(LUM2) 

BGI2L»BETA2*GI2(LUMPS)-BGI2L2 
C******SOLVE  BEOrVALVE  EQUATION  FOR  C 
CALLVAQ(C1.C2) 

W{1)-W1 

W(2)=W2 

W(3)-W3 

CG1-C1 

CG2»C2 

C . SOLVE  FOR  CONCENTRATION  OF  GAS  A 

CALL  CONCA(C1  .CA1  .G1  ,GI1  .U01  ,UL1  .X(1).X(2),BETA1  ,AI/AO) 

CALL  CONCA(C2.CA2.G2.GI2.U02,UL2,X(2).X(3).BETA2.AO/AIJ 

RETURN 

END 

SUBROUTINE  CONCA(CG,CA,G,GI,UOG.ULG.XO, XL, BETAG.ARG) 

C . SOLVES  FOR  CONCENTRATION  OF  GAS  A 

REAL  L2  L 

DIMENSION  CA(300),G(300.2).GI(300).X(2).U(300).Y(300) 

COMMON/BEDV/LUMPS.DZ.L,D1  ,D2,MA,MB.RT,AI,AO,AMW01.AMWL1  .AMW02 

1  .AMWL2,WBR 

COMMONA/OID/E 

COMMONH'IMBT 

C-CG 

BETA-BETAG 

UL-ULQ 
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UO«UOG 

X(1)=X0 

X{2)«XL 

AR=ARG 

LUM2-(LUMP&i-1)/2 

GIL2-GI(LUM2) 

L2=.5*L 

IF(U0**2+UL*‘2)22, 22,23 
C* . ZERO  FLOW  SOLUTION 

22  DO  24 1-1  .LUMPS 
24  CA(I)-G(i,2) 

RETURN 

23  CONTINUE 
CA(1)-C*X(1) 

U(1)-U0 

Y(1)-U0‘CA(1) 

CA{LUMPS)-C*X(2) 

Y(LUMPS)-UL*CA(LUMPS) 

Z-0. 

C“*”*ICR  IS  INDEX  INDICATING  U-0  IN  BED 
ICR-1 
ICR1 -ICR-1 

C“****SOLVE  FOR  U  IN  BED 
DO  3 1-2, LUMPS 
IMI-M 
Z-Z+DZ 

IF(IM1-LUM2)35.34.34 

35  U(I)-U(1)+BETA*(GI(I)/C-Z) 

GO  TO  36 

34  U(I)-AR*U(LUM2)+BETA*((GI(I)-GIL2)/C-Z+L2) 

36  CONTINUE 

C******CHECK  SIGN  CHANGE  OF  U 
IF(U(irU(IM1))8,9,3 

8  ICR-I 
ICR1 -ICR-1 

C*““‘CALCULATE  INTERIOR  INITIAL  FLUX  (U0<0,UL>0) 
ULAST-U(IMI) 

IF(IM1  .EQ.LUM2)ULAST-AR*ULAST 
DZCR-DZ*U(i)/(U(l)-ULAS'n 
DTC-DZCR-DZ 
R1-U(ICR)/DZCR 
R3-(G(I.2)-G(IM1,2))/DZ 
R2»G(!M1,2)-R3*DTC 
A1  -BETA*R2*R1/(BETA+R1 ) 
A2-BETA*R3*R1/(BETA+2  *R1 ) 

Y(ICR)-A1  *DZCR+A2*DZCR*DZCR 

Y(ICR1)-ArDTC+A2*DTC*DTC 

CA(ICR)-Y(ICR)/U(ICR) 

CA(ICR1)-Y(ICR1)/ULAST 
GO  TO  3 

9  ICR-I 
ICR1-I 
Y(ICR)-0. 

IF(U0)3,25,3 

25  ICR-1 
ICR1-1 
Y(1)«0, 

3  CONTINUE 
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UL-U(LUMPS) 

C**‘***LOGIC  FOR  FORWARD  INTEGRATION 
ISIG«1 

IF(UL)14.14.15 

14  IST-1 
IF(UO)12.20.21 

21  CONTINUE 
IT=ICR-2 
IF(IT)1 2,1 2,11 
20  ICR^I 
ICR1-1 
GOT0 12 

15  CONTINUE 
IST-ICR 
IT»LUMPS-ICR 
IF(IT)1 2,1 2,11 

11  CONTINUE 
C«««sOLVE  FOR  CA 
DO10J-1,IT 
l=IST+ISIG*J 
IM1-I-ISIG 

IF(IM1-LUM2)33,30,33 

30  IF(iSIG)31 ,33,32 

31  Y(IM1).Y(IM1)/AR 
U(IM1)-U(IM1)/AR 
G0T033 

32  U(IM1)-AR‘U(IM1) 

Y(IM1)-AR*Y(IM1) 

33  CONTINUE 
R0«U(IM1) 

IF(I.EQ.LUM2.AND.ISIG.EQ.-1)U(I)-AR*U(I) 

R1.(U(I)-RO)/OZ 

R'>-G(IM1,2) 

R3.(G(I,2)-R2)/DZ 

IF(R1)6,7,6 

7  AO-(R2-R3*RO/BETA)*RO 
A1-R3*R0 
BR-BETA/RO 

Y(l)-(Y(IM1)-A0)*EXP(-BR*DZ)+A0+ArDZ 
GOT0 10 

6  A2-BETA*R3*R1/(BETA+2.*R1) 

A1.(BETA*(R3*R0+R2*R1)-2*A2*R0)/(BETA+R1) 

A0.(BETA‘R0*R2-ArR0)/BETA 

IF{R0)26, 27,26 

27  Y(l)-ArDZ+A2*DZ*DZ 
GO  TO  28 

26  CONTINUE 
BR«BETA/R1 

Y(l)=.(Y(IM1)-AO)*(1.+RrDZ/RO)**(-BR)+AO+ArDZ+A2*DZ‘DZ 

28  CONTINUE 
IF(U(I))18,19,18 

19  CA(I)=C‘G(I,2)/G(I,1) 

GO  T0 10 
18  CA(I)«Y(I)/U(I) 

10  CONTINUE 

IF(ICR.EQ.1)GOT013 

IF(DZ)13,13,12 
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12  CONTINUE 

C***‘**LOGIC  FOR  BACKWARD  INTEGRATION 
DZ-DZ 
ISIG»-1 

IF(UL)16.16.17 

16  IST-LUMPS 
IT»LUMPS-ICR 
IF(ICR.EQ.ICR1)IT»IT-1 
IF(IT)13, 13,11 

17  CONTINUE 
IST-ICR1 
IT-ICR1-1 
IF(IT)13,13,11 

13  CONTINUE 
X(1)=.CA(1)/C 
X(2)=CA(LUMPS)/C 
DZ=FLOAT(ISIG)*DZ 
X0»X(1) 

XL-X(2) 

RETURN 

END 

SUBROUTINE  CAPZ(N.G.I) 

REALKA,KB,N,NB 
DIMENSION  N(300.2), 0(300,2) 

COMMON/CAP/KA,KB.B,D,TEMP1 

NB.N(I,1)-N(I,2) 

GB-KB*NB/{1,-NB/B) 

G(I.2)-KA*N(I,2) 

G(I.1).Q(I,2)+GB 

RETURN 

END 

SUBROUTINE  VALVE(A,PU,PD,W) 

C . CALCULATES  VALVE  MASS  FLOWRATE  KG/SEC 

REALKI 

DATA  KI.CI  ,C2.CK/.71 4.  .00906.  .00234, .286/ 

PUL-PU 

PDL-PD 

PR.PDL/PUL 

SIG-I. 

IF(1.-PR)4.3.2 

3  W*0. 

RETURN 

4  PR-1  ./PR 
PUL-PDL 
SIG-1. 

2  CONTINUE 

IF(PR.LT..528)G0T01 
PRR-1  -PR**CK 

W-SIG‘A*CrPUL*(PR*‘KI)*SQRT(PRR) 

RETURN 

1  W-SIG*A*C2'PUL 
RETURN 
END 

SUBROUTINE  VAQ(CG1  ,CG2) 

C‘***“ITERATION  AND  FALSE  POSITION  TO  SOLVE  VALVF7BED  EQUATIONS 
EXTERNAL  ri,F2 

COMMON/BEDV/LUMPS.DZ.L.D1  ,D2.MA,MB,RT,AI.AO,AMW01  .AMWLI  ,AMW02 
1  ,AMWL2,WBR 
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COMMOtWBECmi  ,W2.W3.U01  .UL1  .U02.UL2.PN1  .PN2,VA1  ,VA2.VA3 
1  ,BGI1L,BGI1L2,BGI2L,BGI2L2,BL21,BL22,P1.P2 
C1=CG1 
C2sCG2 
P1»CrRT 
P01.P1 
J=1 

10  FC2-F2(C2) 

1  CN2-C2*(1.-FC2) 

IF(ABS(CN2-C2)/C2.LE.1  .E*6)GO  TO  2 
FCN2-F2(CN2) 

IF(FC2*FCN2)4,3,3 

3  C2-CN2 
FC2-FCN2 
G0T01 

4  C2=FP(F2,FCN2,CN2,FC2,C2) 

2  CONTINUE 
FC1-F1{C1) 

5  CNI-Cr(l.-FCl) 

IF(ABS(CN1-C1)/C1  .LE.1  .E-6)GO  TO  6 
FCNI-FI(CNI) 

IF(FC1*FCN1)8,7.7 

7  C1-CN1 
FC1-FCN1 
GO  TO  5 

8  C1-FP(F1,FCN1.CN1,FC1.C1) 

6  IF(ABS(P1-P01)/P1  .LE.1  .E-6)GO  TO  9 
J»J+1 

P01-P1 

IF(J.LE.20)GOT0 10 
PRINT  100 

100  FORMAT(1X.-FAILED  TO  CONVERGE*) 

9  CGI -Cl 
CG2-C2 
RETURN 
END 

FUNCTION  FI  (CGI) 

C******BED  1  VALVE/BED  EQUATION 

COMMON/BEDV/LUMPS.DZ.L.D1  .D2,MA.MB,RT.AI,AO,AMW01  ,AMWL1  ,AMW02 
1  ,AMWL2.WBR 

COMMONA/BEQW1  ,W2.W3.U01  .UL1  .U02,UL2.PN1  .PN2.VA1  .VA2,VA3 
1  ,BGI1  L.BGI1L2,BGI2L,BGI2L2.BL21  .BL22.P1  ,P2 
Cl -CGI 
P1-CrRT 

CALL  VALVE(VA1  ,PN1  ,P1  ,W1 ) 

CALL  VALVE(VA2.P1  ,P2,W2) 

IF(P1-P2)1,2,3 

1  WBR1-0. 

GO  TO  4 

2  WBR1=.5*WBR 
GO  TO  4 

3  WBR1-WBR 

4  CONTINUE 
U01=W1/(C1*AMW01*AI) 

UL1  -(W2+WBR1  )/(C1  *AMWL1  *AO) 

AR-AI/AO 

FI  -1  .-(AR*BGI1  L2+BGI1  L)/((UL1  +BL21  -AR*(U01-BL21  ))*C1 ) 

RETURN 
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END 

FUNCTION  F2{CG2) 

C****“BED  2  VALVE/BED  EQUATION 

COMMON/BEDV/LUMPS,D2,L.D1  ,D2,MA,MB.RT^,AO.AMW01  .AMWL1  .AMW02 
1  ,AMWL2,WBR 

COMMON/VBEQ/W1  ,W2,W3,U01  ,UL1  ,U02.UL2.PN1  .PN2,VA1  ,VA2,VA3 
1  ,BGt1L,BGI1L2,BQI2L,BGI2L2,BL21.BL22.P1.P2 
C2>=CG2 
P2-C2*RT 

CALL  VALVE(VA2.P1  .P2.W2) 

CALL  VALVE(VA3.P2.PN2.W3) 

IF(P2-P1)1,2.3 

1  WBR2«0. 

GO  TO  4 

2  WBR2..5*WBR 
GO  TO  4 

3  WBR2.WBR 

4  CONTINUE 

U02-(W2-WBR2)/(C2*AMW02*AO) 

UL2-W3/(C2*AMWL2*AI) 

AR-ao/AI 

F2-1.-(AR*BGI2L2+BGI2L)/((UL2+BL22-AR*(U02-BL22))*C2) 

RETURN 

END 

FUNCTION  FP(F.FXR.XR.FXL.XL) 

C***‘*USES  FALSE  POSITION  TO  FIND  ZERO 
DATA  EPS/1  .E-6/ 

IsQ 

3  X-XL-FXL*(XL-XR)/(FXL-FXR) 

FX-F(X) 

lal-t-1 

IF(ABS(FX).LT.EPS)GO  TO  4 

IF(I.GT.50)QOTO4 

IF(FX*FXL)1,1.2 

1  XR-X 

FXL-FXL*FXR/(FXR+FX) 

FXR-FX 
GO  TO  3 

2  XL-X 

FXR-FXR*FXL/(FXL+FX) 

FXL-FX 
GO  TO  3 

4  FP-X 
RETURN 
END 

SUBROUTINE  SCALE1  (Y.YABS) 

COMMON/NBED/NBED 
INTEGER  YABS 
DY-1,0-Y 
DPY-DY*  150.0 
IDY-{FIX(DPY) 

YABS -IDY+ 100 

RETURN 

END 

SUBROUTINE  SCALE2(  Y,  YABS) 

COMMON/NBED/NBED 
INTEGER  YABS 
DY-1.0-Y 
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DPY-DY*  150.0 
IDY-IFIX(DPY) 

YABS-IDY  +  300 

RETURN 

END 

SUBROUTINE  INITIAL1  ( YABS1 .  YABS2,  NBED ) 

INTEGER  YABS1.YABS2 
IF  ( NBED  .EQ.O)  THEN 
WRITE(9,100)YABS1 
ELSE 

WRITE(9,100)YABS2 
END  IF 

100  FORMAT  (3X.'  PI275.*I3T) 

RETURN 

END 

SUBROUTINE  INITIAL2  ( YABS1 .  YABS2.  NBED ) 

INTEGER  YABS1,YABS2 
IF  (NBED  .EQ.O)  THEN 
WRITE(9.100)YABS2 
ELSE 

WRITE(9.100)YABS1 
END  IF 

ion  FORMAT  (3X.'  P[575,*I3T) 

RETURN 

END 

SUBROUTINE  DRAWF  ( XABS,  YABS,  NM ) 

C  DRAW  VECTORS  FROM  PREVIOUS  CURSOR  POSITIONSTOCURRENT  POINTS 
CFORWARDPLOTTING 
INTEGER  XABS.  YABS 
WRITE(9,100)  NM.XABS,YABS 
100  FORMAT  (3X.  *  W(R,N'ir)VaVfl3M3T ) 

RETURN 

END 

SUBROUTINE  DRAWS  ( XABS,  YABS,  NM ) 

C  BACKWARD  PLOTTING 
INTEGER  XABS. YABS 
WRITE(9.100)  NM.  XABS,  YABS 
100  FORMAT  (3X, '  W(R,N11')V0V[’I3',  '131’ ) 

RETURN 

END 

SUBROUTINE  TXTERASE  (NTICKS) 

C  ERASETHEVT125  TEXT  SCREEN 
LOGICAL  ERASE 
DIMENSION  ERASE(4) 

DATA  ERASE/ 27,  T,  '2','J7 
IF(NTICKS.NE.0)THEN 
DO  1-1,7 

CALL  DELAY  (NTICKS) 

END  DO 
ELSE 
END  IF 

TYPE  10.  ERASE 
10  FORMAT(V,5Al,$) 

RETURN 

END 

SUBROUTINE  REGISTART 
C  SETS  VT125  INTOGRAPHICS(REGIS)  MODE 
LOGICAL  GRAPHIC 
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DIMENSION  GRAPHICO) 

DATA  GRAPHIC  /  27,  'P.  'p'  / 

TYPE  10,  GRAPHIC 

10  FORMAT(V.5A1.$) 

RETURN 

END 

SUBROUTINE  PLTERASE 

C  ERASES  PLOTS 
LOGICAL  ERASE 
DIMENSION  ERASE(4) 

DATA  ERASE /’S*,T. ’£*,*)•/ 

TYPE  10,  ERASE 

10  FORMAT(V.5A1.$) 

RETURN 

END 

SUBROUTINE  FRAME1 
WRITE(9.110) 

1 1 0  FORMAT  ( •  PI250,51T(S2)"OBOQS  SIMULATION"* ) 

WRITE(9,112) 

112  FORMAT  ( *  P[30,301T(S1)TIME  -  SEC,  *" ) 

WRITE(9.114) 

1 1 4  FORMAT  ( '  P{260,95rri  "PI260, 245^0*" ) 

WRITE(9.116) 

116  FORMAT  ( *  P(260.295rr"rPt260.445ir0"' ) 

WRITE(9.120) 

1 20  FORMAT  ( '  P[400,80]rBED  #1  * ) 

WRITE(9,130) 

130  FORMAT  (•P[400.280ir BED  #2*") 

WRITE(9,140) 

140  FORMAT  ( '  P(20,255rnNLET" ) 

WRITE(9.150) 

1 50  FORMAT  ( '  P(5,275FPRESSURE" ) 

WRITE(9,160) 

160  FORMAT  ('Piigs.nzirR.v."*) 

WRITE(9.170) 

170  FORMAT  ( *  P[95,430]rEXHAUSr' ) 

WRITE(9.180) 

1 80  FORMAT  ( *  P[1 1 5,450rrGAS"' ) 

V;RITE(9.190) 

190  FORMAT  ('P[624,268IT"P.O.*") 

WRITE{9,192) 

192  FORMAT  ( '  PI680.1 1 2]rB.P,*’ ) 

WRITE(9,193) 

193  FORMAT  ('Pl720.412]V00O00P[73O,403]rO%-') 

WRITE(9.195) 

195  FORMAT  ( '  P[72O,356]V0O000P(730,349]T"2O%-* ) 

WRITE(9.196) 

1 96  FORMAT  ( '  P1720,1 32]V00000P1730,1 23rr*1 00%'” ) 

WRITE{9,200) 

200  FORMAT  { '  P[275,100M575,100]V[575,250]V[275.250]V[275.100]') 
WRITE(9,210) 

210  FORMAT  { '  P1275.300]VI575.300]V[575,450]V[275,450]V[275,3001’ ) 
WRITE(9,300) 

300  FORMAT  ( '  PI575,162]V[670,1621V[670,132M720,132M720,4121' ) 
WRITE(9,310) 

310  FORMAT  ( *  VI670,412]V[670,3821V[575,3821P[575,182]’ ) 
WRITE{9,400) 

400  FORMAT  ( '  V[600,182]V(600,2671V[605,272IV[600,277]V[600,362]' ) 


WRITE(9.410) 

410  FORMAT  ( '  VI575.3621P(620.1821VI670.182M670, 36211/1620,3621’ ) 
WRITE(9,450) 

450  FORMAT  ( ’  VI620.2771V[615.2721V[620.267M620.1821') 
WRITE(9,460) 

460  FORMAT  ( ’  P1720,2621VI750,2621V[7S0.282M720.2821' ) 
WRITE(9.500) 

500  FORMAT  ( ’  P[275,162M240.162M240,132M180.132r ) 
WRITE(9,510) 

510  FORMAT  ( ’  VI180,162M1‘«8.162M118.2621’ ) 

WRITE(9.520) 

520  FORMAT  { ’  PI275,1821V[240,1821P(180,182M138.1821VI138.2621 
1  ■) 

WRlTE(9.540) 

540  FORMAT  ( ’  P[118.2821V[118.420M1 38, 4201V[1 38.3821* ) 
WRITE(9,600) 

600  FORMAT  ( ’  V[180.3821V[180,4121VI240.4121V[240,3821\/I275,3821’) 
WR1TE(9.610) 

610  FORMAT  ( ’  Pl180,262M80.262M80.282r ) 

WRITE(9.700) 

700  FORMAT  ( '  VI180,2821V(180.3621VI138,362Ml38,2821Pt275,3621’ ) 
WRITE(9,710) 

710  FORMAT  ( ’  P[275.362M240.3621Vl240.1821Pt1 80.1 82M1 80,2621’ ) 
WRITE(9,730) 

730  FORMAT  ( ’  Pl630.1621V[630.1671V[640.162r ) 

WRITE(9,735) 

735  FORMAT  ( ’  P[630.182lV[630.177lVl640.182r ) 

WRITE(9.740) 

740  FORMAT  { ’  P[630,3621V[630,3671V1640.3621’ ) 

WRITE(9,750) 

750  FORMAT  { ’  P(630,3821VI630.3771V(640,382r ) 

RETURN 

END 

SUBROUTINE  NEWTIME  ( TIME.NW ) 

WRITE(9,100)NW,TIME 
1 00  FORMAT  ( ■  W(N'I1  ')P11 1 0.301T(S1  )’"F4.1’" ) 

RETURN 

END 

SUBROUTINE  FRAME2  (NBED.NW) 

IF(NBED  ,Ea.1)THEN 
WRITE(9,710)NW 

71 0  FORMAT  ( ’  W(N'I V)P[180,262M240,362r ) 

ELSE 

WR1TE{9,720)NW 

720  FORMAT  ( ’  W(N'I1')P[180,262]V1240,1621’ ) 

END  IF 

WRITE(9,730)NW 

730  FORMAT  ( ’  W(N'I1')P1630,1621V1630,1671V1640,162T ) 
WRITE(9,735) 

735  FORMAT  ( '  P[630,1821V[630,1771VI640,1821’ ) 

WRITE(9.740)NW 

740  FORMAT  ( '  W(N*l1')P[630,3621V[630,3671V|640,362r ) 
WRITE(9.750) 

750  FORMAT  ( ’  P[630,3821V[630,3771V(640,3821’ ) 

IF(NBED  .EQ.1)THEN 
WRITE{9.800)NW 

800  FORMAT  ( ’  W(N-|1')PI180.2821V[240.382r ) 

WRITE{9,805) 
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805  FORMAT  ( ’  Pl240.162M180.162]P[240.182M180.182r ) 
WRITE(9,810)NW 

81 0  FORMAT  ( ’  W(N'ir)P[1 13.272]\/I143.2721* ) 

WRITE{9.815) 

815  FORMAT  ( ’  P[136,268]VDV1143.2721V[136,27$1* ) 
WR1TE(9,820)NW 

820  FORMAT  ( ’  W(N'l1')P(590,372]VI625,372r ) 

WRITE(9.825) 

825  FORMAT  ( •  P[620.369]VDV/I625,3721Vt620,3751' ) 
WRITE(9.830)NW 

830  FORMAT  ( ‘  W(mi’)P[610,320M610.290r ) 

WRITE(9,835) 

835  FORMAT  ( •  P[607.295]VOV[610.290M613.295r ) 
WRITE(9,840)NW 

840  FORMAT  ( *  W(N'ir)P[610.172M585.172r ) 

WRITE{9.845) 

845  FORMAT  ( *  P(590,169]VG\/1585,172M590.175]’ ) 
WRITE(9,850)NW 

850  FORMAT ( * W(N’ir)P[128,3521VI128,392]') 

WRITE(9,855) 

855  FORMAT  ( '  P(l24,385]VDVl128.392M132.385r ) 
WRITE(9,860)NW 

860  FORMAT  { '  W(N'l1')P[638,172]CI632,166r ) 

WRITE(9.865) 

865  FORMAT  ( '  P[645, 1 72]V1 1 1 1 77771 1 1 1 77771 1 1 1 000’ ) 
WRITE(9.870)NW 

870  FORMAT  ( '  W(N'I1')P(650,3721C[643.3721’ ) 

WR1TE(9.880) 

880  FORMAT  ( '  P[657,372]V1 1 1 1 77771 11100*) 

ELSE 

WRITE(9,900)NW 

900  FORMAT  ( '  W(N*I1*)P[180.282]V(240.182]* ) 

WRITE(9,905) 

905  FORMAT  { '  P[180,362]V[240.362]P[180.382]V[240,382]' ) 
WRITE(9.910)NW 

91 0  FORMAT  ( ’  W(N’ir)P[1 13,272]V[143,272J* ) 

WRITE(9,915) 

915  FORMAT  ( ’  P[136,268]VQV1143.2721VI136,276)' ) 
WRITE(9,920)NW 

920  FORMAT  ( '  W(N'I1')P[590,172]VI615.172J* ) 

WRITE(9,925) 

925  FORMAT  ( '  P[608,168]VaVl615.172]V[608,176]’ ) 
WRITE(9.930)NW 

930  FORMAT  ( '  W(N'I1  ■)P[61 0.222M61 0.2521' ) 

WRITE(9,935) 

935  FORMAT  ( '  P(606,245]VGV(610.2521V[614,245r  ) 
WRITE{9.940)NW 

940  FORMAT  ( '  W(N’I1  ')PI61 0,372M580,372]’ ) 

WRITE(9,945) 

945  FORMAT  ( '  P[587,3681VQV1580.3721V[587,376]’ ) 
WRITE(9,950)NW 

950  FORMAT  ( '  W(N'ir)P[159,372]V[128.372lVI128.390r ) 
WRITE(9,955) 

955  FORMAT  ( '  P[124,381]VQV[128,390]V[132.3811' ) 
WRITE(9,960)NW 

960  FORMAT  ( '  W(N’I1')P[650,172]C[643,172)* ) 
WRITE(9,965) 

965  FORMAT  ( '  P[657,1 72]V1 1 1 1 77771 11100*) 


WR1TE(9.970)NW 

970  FORMAT  ( ’  W(N*IV)P[638,372]C1633.3661' ) 

WRITE(9.980) 

980  FORMAT  ( ’  PI645,372]V1 1 1 1 77771 1 1 1 77770000’ ) 

END  IF 

RETURN 

END 

SUBROUTINE  REGISOUT 
C  SETS  VT1 25  BACK  INTO  TEXT  MODE 
LOGICAL  ALPHA 
DIMENSION  ALPHA(2) 

DATA  ALPHA/ 27.  V/ 

TYPE  10.  ALPHA 
10  FORMATC+',5A1,$) 

RETURN 

END 

SUBROUTINE  DELAY  ( NTICKS ) 

TYPE  100.NTICKS 
1 00  FORMAT  ( ’+S(T<’I3’>)’.  $ ) 

RETURN 

END 

SUBROUTINE  SCALEM  ( Y.IYABS.W, RANGE ) 

DY  =  (( W-  Y )  *  300.0 )  /  RANGE 
IDY  =  IFIX(DY) 

IYABS  =  IDY+90 

RETURN 

END 

SUBROUTINE  STIME  ( TIME.IXABS.RANGE,AXLEN.SHIFT ) 

INTEGER  SHIFT 

DX  =  { TIME  *  AXLEN )  /  RANGE 

IDX  =  IFIX(DX) 

IXABS  =  IDX  + SHIFT 

RETURN 

END 

SUBROUTINE  FRAME 

COMMON/SYST/DT.PSUP,POUT.TF.WBRL,VS.VO.IIN,TCYC 

COMMON/NPRINT/NOUT1 

DIMENSION  T(10) 

DELT  =  TF/10.0 
DO  1=1,10 
T(I)=I*DELT 
END  DO 
TYPE  10 

1 0  FORMAT  ( 'IPII  30,390]V(+60.1Vl.+5]' .  $ ) 

DO  1=1 ,9 
TYPE  12 

1 2  FORMAT  ( '!P[,-5]V[+60,]V[,+5]’ ,  $ ) 

END  DO 
TYPE  20 

20  FORMAT  ( '!P(1 20,398]T"0.0"' ,  $ ) 

TYPE  21  ,T(1),T(2) 

21  FORMAT  ( ■!P[160,398]T"’F5.1'T[220,398rrF5.1""  ,  $ ) 
TYPE22.T(3),T{4) 

22  FORMAT  ( ■|P[280,398]r"F5.1"'P[340,398]T'"F5.1"'' .  $  ) 
TYPE  23,T(5),T(6) 

23  FORMAT  ( 'IP[400,398]r'F5.1"'PI460,398)T“F5.1""  ,  $  ) 
TYPE  24,T(7),T(8) 

24  FORMAT  ( ■!P[520,398]r"F5.1"'P[580.398]rT5.1""  ,  $  ) 
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TYPE  25 .  T(9).T(10) 

25  FORMAT  ( •1P[640,398]T"'F5.1'"P[700.398]T"*F5.1'“  ,  $ ) 

TYPE 30 

30  FORMAT  ( •!P[350.430irTIME  (SEC.)"’,  $ ) 

TYPE 40 

40  FORMAT  ( •!P[130.390M.-30M-5.1' .  $ ) 

DO  1=1,9 
TYPE  50 

50  FORMAT  ( ’1P[+5,M -30]V[-5.]’ .  $ ) 

END  DO 

TYPE  51 

51  FORMAT  ( MPI70.1 80]Tl+0.+1  SrOUTPUT .  $ ) 

TYPE53.PSUP 

53  FORMAT  ( •!PI530.34]Tl+9.+0]"PSUP  =  *T"F5.2"T"  PSIA"'.$) 

TYPE  54.  POUT 

54  FORMAT  ( ■!P[530.52]TPOUT  =  "T"F5.2"T'  PSIA-.S) 
TYPE55.WBRL 

55  FORMAT  ( '!P1530,70]'rWBRL  =  ■T"F5.2“r  STD  UT/MIN",$) 
tF(NOUT1.EQ.1)THEN 

57  TYPE 60 

60  FORMAT  ( •!P[290,51T"*  OXYGEN  MOLE  FRACTION  *" ,  $ ) 

TYPE  62 

62  FORMAT  ( '!P[95,383]r0.0'PI95,353]T"0.rP[95.323]r0.2'"$) 
TYPE  64 

64  FORMAT  ( •!P[95,293]T"0.3"Pt95,263]T"0.4T[95,233]r0.5”,$) 
TYPE  66 

66  FORMAT  ( TPl95,203ir0.6"P(95,1 73]T"0.7"PI95.143]T'0.8"*,$) 
TYPE  68 

68  FORMAT  ( ■!P195,1 13]ro.9"Pl95,83F"1.0"'.$) 

ELSE  IF(NOUT1.EQ.2)  THEN 
TYPE  80 

80  FORMAT  ( '!P[290.5]r*  INLET  MASS  FLOWRATE  (KG/SEC)  *“',$) 
TYPE  82 

82  FORMAT  ( TP(85,383ir-.02"PI85,353]r-.0rP[95,323]T"0.0"’,$) 
TYPE  84 

84  FORMAT  ( '!P[95.293]r.0rP[95,2631T".02"P[95,233ir.03"’,$) 
TYPE 86 

86  FORMAT  ( TP(95,203]r.04"P[95,173JT"  05"P{95,143)  I  ’.06"’,$) 
TYPE 88 

88  FORMAT  ( '!P[95,1 13]r.07"P[95.83]T".C3“',$) 

ELSE  IF(NOUT1  .EQ.3)  THEN 
TYPE  90 

90  FORMAT  ( 'IPI290,5]r*  OUTLET  MASS  FLOWRATE  (KG/SEC)  *’",$) 
TYPE  82 
TYPE  84 
TYPE 86 
TYPE  88 
ELSE 
GO  TO  57 
END  IF 
RETURN 
END 
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APPENDIX  B:  OBOGS  Model  Code,  Three  Component  Model 


puraifrunt  iM:TutnjiJtjrji.ini.inr.vw  v^.v^ 


PROGRAM  MSEV 
C 

C  OBOGS  WITH  CONTAMINANT 
C  A-COMPONENTA(OXYGEN) 

C  B- COMPONENTS  (CONTAMINANT) 

C  C=COMPONENTC  (NITROGEN) 

C 

REALLIN,KA,KB,KC 
REALL50 
BYTE  CONTINUE 
BYTELOWC 
BYTE  KEVIN 
BYTE  NULL 
BYTE  YES 
BYTE  NO 

CHARACTER*64TEMP 

DIMENSION  W(3).XA(3).XB(3).CVA(3).PS(2).P(2) 

DIM  ENSION  WV(502.2),TV(500)  .XV(502.3) 

DIMENSION  DL(500).CA1  (500).CA2(500).CB1  (500),CB2(500). 

1  XA1(502,1 1).XA2(S02,1 1).XB1  (502,1 1).XB2(502,1 1) 

DIMENSION  IXABS1  (501 .1 1  ),IYABS1  (501 ,1 1  ).IXABS2(501 ,1 1 ). 
1  IYABS2(501,11) 

DIMENSION  1X1  (501 )  ,l  Y1  (501  ).IX2(501  ),IY2(501 ) 

DIMENSION  JX(6, 11), JY(6,11).JXERSH(6.11).JYERSH(6.11), 

1  JXERSL(6,11).JYERSL(6,11) 

DIMENSION  Tl(6),  NY(6) 

DIMENSION  XCA1  (502.1 1  ),XCA2(502.1 1  ),XCB1  (502,1 1 ), 

1  XCB2(502,11).XBR02(500) 

dimension  rang6(4),xaxis(10),yaxl8(10),range2(4),xaxi82(10), 

1  yaxis2(10),xaxi8d(10),yaxls3(10),range3(4), 

1  xaxis50(10),yaxis50(10).rangeS0(4) 

DIMENSION  L50(402).T50(400),ERR(400) 

COMMON/TIME/T 

COMMON/SYST/DT.PSUP.POUT.TF.WBRL.VS.VO,IIN.TCYC 

COMMON/GEOM/DBYIN,DVSIN,DVOIN,LIN.DIAOIN,DIAIIN 

COMMON/CAP/KA,KB,KC,BB,BC,D 

COMMON/VOID/E 

COMMON/NFINISH/NEXIT 

COMMON/STEP/NSTEP,TSTEP1.TSTEP2,BRSTEP 

COMMON/NPRINT-NOUTI  ,TI,NY 

COMMON/BEDV/LUMPS,DZ 

COMMON/HILOBED/NBED,NB 

DATA  CONTINUE/67/ 

DATALOWC/99/ 

DATANULL/O/ 

DATA  YES/89/ 

DATA  NO/78/ 

17  CALL  MENU 

IF  ( LUMPS  .EQ.  101)  THEN 

IINC-3 

ELSE 

IINC-6 

END  IF 

IF(NEXIT.EQ.1)GOTO900 
IF(NSTEP  .EQ.1  )GOTO20 
TSTEP1  - 10000000. 

TSTEP2*  10000000. 
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BRSTEP-WBRL 
20  CONTINUE 
DLIN  =  LIN/(LUMPS-1) 

DO  1  =  1, LUMPS 
DL(I)-(I-1)*DLIN 
END  DO 

OPEN  (UNIT-1 ,  FILE-’MOLEFRAC'.STATUS-’NEV\0 
OPEN  (UNIT=2,  FILE-'FLOWRATE'.STATUS-’NEW^ 

OPEN  (UNIT-3.  STATUS-'SCRATCH*) 

OPEN  (UNIT-4,  FILE-'PROFILE',STATUS-*NEV\0 
OPEN  (UNlT-8,  STATUS-'SCRATCH') 

OPEN  (UNIT-9,  FILE-'REGIS’,STATUS-’NEW^ 
OPEN(UNIT-10.FILE-*CONTA',STATUS-'NEW^ 

WRITE(6,7j 
7  FORMAT(//. 

1  . . “**‘*“) 

PRINT' 

PRINT  OBOGS  SIMULATION’ 

PRINT* 

IIN-0 
ND  =  0 
N50-0 

CDBY-.056/DBYIN 
IF(CDBY.GT.1.)CDBY  =  1. 

IF(CDBY.LT..6)CDBY  =  .6 
DBYM-DBYIN*.0254 

PRINT  *,'  BYPASS  VALVE  DISCHARGE  COEFFICIENT  .  ’.CDBY 
BYVA  -  3.141S9*DBYM**2  /4. 

VS  =  .8  *  ( .02S4*DVSIN  )**2  *  3.1 41 59  /  4. 

VO  =  .8  *  ( .0254*DVOIN  )**2  *  3.14159  /  4. 

PRINT  *,'  AREA  OF  BY-PASS  (M**2)  -  ’.BYVA 
PRINT  *,'  CD*AREA  SUPPLY  VALVE  (M**2)  -  ’.VS 
PRINT  *,'  CD*AREA  OUTLET  VALVE  (M**2)  -  ’.VO 
PRINT  SUPPLY  PRESSURE(PSI)«'.PSUP, 

’OUTLET  PRESSURE(PSI)-’,POUT 
CVA(2)-CDBY*BYVA 
T-0.0 
DT-.01 
DATAP-200. 

INC  =  IFIX(TF/(DATAP*DT)) 

NT-0 
IM-0 
P(1)  =  14.5 
P(2)-14.5 
XA(2)  -  .20 
XB(2)  -  0. 

PRINT  BREATHING  FLOW  (STD  LIT/M  IN)  -  ’.WBRL 

XABR-.20 

XBBR-0. 

IF{NOUT1-1)35,35,36 

35  CLOSE(UNIT=2.STATUS-'DELETE') 
CLOSE(UNIT=4,STATUS='DELETE') 
CLOSE(UNIT=9,STATUS-'DELETE’) 

CLOSE(UNIT=1 0.STATUS-’DELETE’) 

WRITE(1,57) 

57  FORMATC  OXYGEN  MOLE  FRACTION'.24X,’TIME‘) 

G0TO1 

36  IF(NOUT1  .EQ.4)  GOTO  37 


IF(N0UT1.EQ.5)  GOT0 170 
CLOSE(UNlT-1  .STATUS=‘DELETE’) 

CLOSE(UNIT-4,STATUS-’DEI.ETE’) 

CLOSE(UNIT-9,STATUS-*DELETE*) 

CLOSE{UNIT-1 0.STATUS-’DELETE*) 

WRITE{2,58) 

58  FORM  ATC  INLET  MASS  FLOWR ATE'.T25;  OUTLET  MASS  FLOWRATE’, 
1’T55,TIME') 

G0T01 

170  CLOSE(UNiT=1.STATUS=’DELETE’) 
CLOSE(UNIT-2.STATUS='DELETE') 

CLOSE(UNIT-4,STATUS-'DELETE’) 

CALLFRAME1 

G0T01 

37  CLOSE(UNIT=1.STATUS=’DELETE’) 
CLOSE(UNIT-2,STATUS='DELETE’) 

CLOSE(UNIT»1 0.STATUS-'DELETE*) 

CALLFRAME1 
1  CONTINUE 
XA(1)-.21 
XA(3) « .21 
XB(1)-.21 
XB(3)  >  .21 

CALL  TIMER  ( CVA.PH.PS.T ) 

CALL  BEDS  ( P.  W,  XA,  XB.  XABR,  XBBR,  CVA,  PS,  DT, 
CA1,CA2.CB1,CB2,C1,C2) 

IF  ( NOUT1  .EQ.  4  .OR.  NOUT1  .EQ.  5 )  GO  TO  77 
GO  TO  78 
77  D01000K-1.6 

IF(NT.EQ.  NY(K))GOTO150 
GO  T0 1000 
150  CONTINUE 
IF(K.GT.1)THEN 

CALL  INITI AL1  ( IY1  (1 ).  IY2(1 ),  NB ) 

DO  J=2, LUMPS 
DLIN  =  LIN/{LUMPS-1) 

DL(J)  =  (J-1)‘DLIN 

IF(NB.EQ.0)THEN 

CALL  DRAWF  ( IX1(J),  IY1(J),  1 ) 

ELSE 

CALL  DRAWF  ( IX2(J),  IY2(J),  1 ) 

END  IF 
END  DO 

CALL  INITI AL2  ( IY1(1),  IY2(1),  NB) 

DOM-2, LUMPS 

IF(NB.EQ.0)THEN 

CALL  DRAWB  ( IX2(M).  IY2{M),  1 ) 

ELSE 

CALLDRA’WB(IX1(M),IY1(M),1 ) 

END  IF 
END  DO 
ELSE 
END  IF 

DOJ=2.LUMPS 
DLIN  =  LIN/(LUMPS-1) 

DL(J)  =  (J-1)*DLIN 


li  '  4  ' 
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END  DO 

IF{TTLGT.0.0)THEN 
CALLNEWriME(TTI.1 ) 

CALL  NEWTIME  (TI(K).O) 

IF(NBED  .EQ.NB)THEN 

CONTINUE 

ELSE 

CALLFRAME2(NB,1) 

CALLFRAME2(NBED,0) 

END  IF 
ELSE 

CALL  NEWTIME  (TI(K),0) 

CALLFRAME2(NBED,0) 

END  IF 
TTI*TI(K) 

IF  (NOUT1  .EQ.  4)  GO  TO  120 

WRITER  10,*)  PH,NBED.T,NT,NY(K) 

WRITE(10,110)TI(K) 

GOT0 130 

120  WRITE{4.110)TI{K) 

110  FORMATC  BED  COORDINATE'.T20,*MOLE  FRACTION  IN  BED#r, 
1T46.*MOLE  FRACTION  IN  BED#2*.3X/(TIME  T-’,F6.2,’SEC.)*;) 

130  CONTINUE 
DO  L-1  .LUMPS 
XCA1(L.K)-CA1(L) 

XCA2(L.K)-CA2(L) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

XCB1(L,K)-CB1(L) 

XCB2(L,K)-CB2(L) 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
IF(NBED  .EQ.0)THEN 
XA1(L,K).XCA1(L.K)/C1 
XA2(L,K)-XCA2(L,K)/C2 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
XB1(L,K)-XCB1(L,K)/C1 
XB2{L.K)-XCB2(L.K)/C2 
CCCCCCCCCCCCXXXCCCCCCCCCCCCCCCC 
IXABS1  (L.K)  -  275  +  IINC*(L-1) 

IXABS2(L.K)  -  575  -  IINC*(L-1) 

IF(NOUT1  .EQ.4)THEN 
CALL  SCALE1  ( XA1  (L.K).  IYABS1  (L.K) ) 

CALL  SCALE2  (  XA2(L.K).  IYABS2(L.K) ) 

ELSE 

CALL  SCALE1  ( XB1(L.K).  IYABS1(L.K) ) 

CALL  SCALE2  ( XB2(L.K).  IYABS2(L.K) ) 

END  IF 
ELSE 

M-LUMPS+1-L 
XA1(M,K)  =  XCA1(L,K)/C1 
XA2(M.K)-XCA2(L,K)/C2 

XB1(M.K)-XCB1(L.K)/C1 

XB2(M.K)-XCB2(L,K)/C2 

IXABS2(L.K)  -  275  +  IINC*(L-1) 

IXABS1(L,K)  -  575  -  IINC*(L-1) 

IF(NOUT1  .■eQ,4)THEN 
CALL  SCALE1  ( XA1  (M.K).  IYABS1  (M,K) ) 
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CALL  SCALE2  ( XA2(M.K).  IY/£S2(M,K) ) 

ELSE 

CALL  SCALE1  ( XB1(M,K),  IYABS1(M,K) ) 

CALL  SCALE2  ( XB2(M,K),  IYABS2(M,K) ) 

END  IF 
END  IF 
END  DO 

CALL  INITIAL1  ( lYABSl(I.K),  IYABS2(1.K),  NEED) 

DO  l»2, LUMPS 

IF{NBED.EQ.O)THEN 

CALL  DRAWF  ( tXABSI  (l,K),  IYABS1(I,K),  0 ) 

1X1(1)  -  IXABS1(I,K) 

IY1(I)-IYABS1(I.K) 

ELSE 

CALL  DRAWF  ( IXABS2(I.K).  IYABS2(I.K),  0 ) 

1X2(1)  -  IXABS2(I.K) 

IY2(I)  -  IYABS2(I,K) 

END  IF 

END  DO 

DOM, LUMPS 

IF  (NOUT1  .EG.  4)  GO  T0 146 

GOT0 140 

146  WRITE(4.300)  DL(I).  XA1(I,K).  XA2(I.K) 

GOT0 160 

140  WRITE(10.300)DL(I),  XBI(I.K),  XB2(I.K) 

300  FORMAT(5X. F6.3. 14X. F10.6. 16X, F10.6) 

160  CONTINUE 
END  DO 

CALL  INITIAL2  ( IYABS1  (1  ,K).  IYABS2(1  ,K),  NBED ) 

DO  255  N-2, LUMPS 

IF  ( NBED  .EQ.O)  THEN 

CALL  DRAWS  ( IXABS2(N,K),  IYABS2(N,K),  0 ) 

IX2(N) .  IXABS2(N,K) 

IY2(N)-IYABS2(N,K) 

ELSE 

CALL  DRAWS  ( IXABSI(N.K),  IYABS1(N,K),0) 
IX1(N)-IXABS1(N,K) 

IY1(N).IYABS1(N.K) 

END  IF 
NB-NBED 
255  CONTINUE 

XBRO22-XABR/1.05 
DY-XBR022 
DPY-DY*  280.0 
IDY-IFIX(DPY) 

IABS-412-IDY 
IF(K.GT.1)THEN 
WRITE(9,500)  lA 
500  FORMAT  ('P[695, '13]') 

IF(IABS.LT.IA)  THEN 
ID  »  lA  -  lABS 
WRITE(9,510)  ID 

510  FORMAT  ( '  W(R,N0)VDVI695,-’I3T ) 

ELSE 

ID  =  IABS-iA 
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WRITE(9,520)  ID 

520  FORMAT  ( '  W(R.N1)V0V1695,+'I3T ) 

END  IF 
ELSE 

WRITE(9,530)  lABS 
530  FORMAT  (•P(695.4121Vi;i3T) 

END  IF 

WRITE(9,535) 

535  FORMAT  ('W(NO)') 

C  WRITE(6.200)DL(I).XA1  (I.K),XA2(I.K) 

C  200  FORMAT{8X.F6.3.11X.E10.4,7X.E10.4) 

range(1)>0. 
range(2)  - 18. 
range(3)  >  0. 
rang6(4)»1. 
nxaxis  -  20 

encode  (nxaxis, 258 ,xaxis) 

258  format  ('BED  COORDINATE  (IN.)') 
nyaxis»  13 

encode  (nyaxis,369,yaxis) 

369  format  ('MOLE FRACTION') 
nxaxis50a11 

encode  (nxaxis50,256,xaxis50) 

256  format  (TIME  (SEC.)’) 
nyaxis50>9 

encode  (nyaxis50,366,yaxis50) 

366  format (•L50 (IN.)') 

lAalABS 
1000  CONTINUE 

IF(((NOUT1  .EQ.5).AND.(MOD(NT,INC).EQ.O)).OR.({NOUT1  .EQ.5) 

.  .AND.(AMOD(T.TCYC).EQ.O.)))  THEN 

N50.N50-I-1 

DOM-1  .LUMPS 

1F(NBED  .EQ.0)THEN 

ERR(M)-(CB1(M)/C1)-.10 

ELSE 

L-LUMPS+1-M 
ERR(M)-{CB2(L)/C2)-.10 
END  IF 

IF  ( ABS(ERR(M))  .LE.  0.015 )  THEN 
l.50(N50)-DL(M) 

ELSE 
END  IF 
END  DO 
T50(N50)-T 

WRITE(1 1  .•)T50(N50),L50(N50).NBED, LUMPS 
ELSE 
END  IF 

IF(NT.EQ.NY(6))THEN 

RANGE50(1)»0. 

RANGE50(2)-0. 

RANGE50(3)-.0. 

RANGE50(4)»0. 

CALL  ZETAPLT(1 1 ,1  ,N50,RANGE50.T50,L50,N50+2.XAXIS50. 
NXAXIS50„YAXIS50,NYAXIS50) 
call  zetapit(1 0,6, lumps, range, DL.XBI  ,LUMPS+2,xaxis, 
nxaxis, yaxis.nyaxis) 
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call  zetaplt(20, 6, lumps, range, DL,XB2,LUMPS-t-2,xaxis, 
nxaxis,yaxls,nyaxis) 

CLOSE  ( UNIT-9,  STATUS-’SAVE' ) 

REWINDS 

OPEN  ( UNIT-9,  FILE-’REGIS’,  STATUS-‘OLD* ) 
CALLTXTERASE(O) 

CALLREGISTART 

CALLPLTERASE 

9200  READ  (9, 9220,  END-9999)  TEMP 

WRITE  (3,*)  TEMP 
TYPE9220.TEMP 
9220  FORMAT  (A) 

GO  TO  9200 

9999  CALLREGISOUT 

CLOSE  ( UNIT-9,  STATUS-'DELETE* ) 
WRITE(6,9450)NULL 

9450  FORMAT  ( A, '  PRESS  "C"  TO  CONTINUE :  * ) 

9400  READ(S,9300)  KEVIN 

9300  FORMAT  (A) 

IF  { KEVIN  .EQ,  CONTINUE  .OR.  KEVIN  .EQ.  LOWC )  THEN 
CALLTXTERASE(O) 

CALLREGISTART 
CALLPLTERASE 
CALLREGISOUT 
go  to  17 
ELSE 

GO  TO  9400 
END  IF 
ELSE 
GO  TO  6 
ENOIF 

78  IF  (MOD(NT,INC))  5,5,6 
5  IM  -  IM  1 

XBRO2(IM)-XABR/1.05 
IF(NOUT1  .EQ.1)THEN 
WRITE(1,84)XBR02(IM),T 
84  FORMAT  ( 6X,  FI  0.6, 25X,  FI  0.3) 

82IF(ND.EQ.0)THEN 
CALL TXTERASE( 255) 

CALLREGISTART 
CALLPLTERASE 
CALL  FRAME 
TVPE80 

80  FORMAT  (■!P[130,330]'.$) 

GO  TO  47 
ELSE 

CALL  STIME  (T,  IX,  TF,  600.,  130 ) 

CALL  SCALEM  ( XBR02(IM),  IV,  1 .0, 1 .0 ) 

TYPE  85,  IX,  lY 
85  FORMAT (■!V[T3',T3T,$) 

END  IF 

ELSE  IF  ( NOUT1  .EQ.  2 )  THEN 
IF(ND.EQ.0)THEN 
CALL TXTERASE( 255) 

CALLREGISTART 

CALLPLTERASE 


CALL  FRAME 
TYPE  86 

86  FORMAT  ( 'IP[1 30,330]’,  $ ) 

GO  TO  47 

ELSE 

CALL  STIME  ( T,  IX,  TF,  600.,  130 ) 

CALL  SCALEM  ( WV(ND,1),  lY.  0.08, 0.1 ) 

TYPE  87,  IX,  lY 

87  FORMAT  (•!Vri3’,’l3T.$) 

WRITE(2,68)  WV(ND.1),  WV(ND,2),  T 

68  FORMAT(8X,  F10.6, 11X,  F10.6, 10X,  F10.3) 

END  IF 

ELSE  IF  ( NOUT1  .EQ.  3 )  THEN 
IF(ND.EQ.0)THEN 
CALL TXTERASE( 255) 

CALLREGISTART 
CALLPLTERASE 
CALL  FRAME 
TYPE  88 

88  FORMAT  ( •!P[130.330r,  $ ) 

GO  TO  47 

ELSE 

CALL  STIME  ( T.  IX.  TF,  600.,  130 ) 

CALL  SCALEM  ( WV(ND,2),  lY.  0.08, 0.1 ) 

TYPE  89,  IX,  lY 

89  FORMAT  (’IVriS’.’IOT.S) 

WRITE{2,69)  VyA/(ND,1),  WV(ND,2),T 

69  FORMAT  (8X.  F10.6. 11X,  F10.6. 10X,  F10.6,6X,  F10.3) 
END  IF 

ELSE 
GO  TO  82 
END  IF 

47  CONTINUE 
ND-ND+I 
IF  (PH-ISO.)  2,3,3 

2  WV(ND.1)-W(3) 

WV{ND,2)-W(1) 

GO  TO  4 

3  WV(ND,1)=-W(1) 

WV(ND.2)-W(3) 

4  XV(ND.1)-XBR02(IM) 

XV(ND,2)-0, 

XV(ND,3)-1. 

TV(ND)»T 

6  NT«NT+1 
T=NT*DT 

IF  ( T  ,LT.  TSTEPI  .AND.  T  .Le.  TF )  THEN 

WBRLOLD-WBRL 

G0T01 

ELSE  IF  ( T  .GE.  TSTEPI  .AND.  T  .LT.  TSTEP2 )  THEN 

WBRL  =  BRSTEP 

GOT01 

ELSE  IF  ( T .GE.  TSTEP2  .AND.  T  .LE.  TF )  THEN 

WBRL.WBRLOLD 

G0T01 

ELSE 

WBRL  =  WBRLOLD 
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GOT0 18 
END  IF 

18  CONTINUE 
CALLREGISOUT 
WRITE(6.42)NULL 

42  FORMAT  ( A.  ’  PRESS  "C"  TO  CONTINUE :  * ) 

44  READ(5.41)  KEVIN 

41  FORMAT  (A) 

IF  { KEVIN  .EQ.  CONTINUE  .OR.  KEVIN  .EQ.  LOWC )  THEN 
CALLT>CTERASE(0) 

CALLREGISTART 
G0T043 
ELSE 
G0T044 
END  IF 

43  CALLPLTERASE 
CALLREGISOUT 
range2(1)ai0. 
range2(2)  ■  0. 
range2(3)  -  0. 
range2(4)-l. 
range3(1)«0. 
rang63(2)  ••  0. 
fange3(3)  ■  -.01 
range3(4) « .04 
nxaxis2«11 

encode  ( nxaxis2, 257,  xaxis2 ) 

257  format  (TIME  (SEC.)') 
nyaxis2«<16 

encode  ( nyaxi82, 368,  yaxis2 ) 

368  format  (’02  MOLE  FRACTION') 
nxaxis3«11 

encode  ( nxaxisS,  852,  xaxis3 ) 

852  format  (TIME  (SEC.)') 
nyaxisS  >  18 

encode  ( nyaxi$3, 963,  yaxis3 ) 

963  format  ( 'BREATHING  FLOWRATE’ ) 

call  zetapit  ( 30, 3,  nd,  range2,  tv,  xv,  nd+2,  xaxis2, 
nxaxis2,  yaxis2,  nyaxis2 ) 

call  zetapit  ( 40, 2,  nd,  ranges,  tv,  wv,  nd4-2,  xaxis3, 
nxaxls3,  yaxls3,  nyaxisS ) 

100  FORMAT  (14X,8E1 2.3) 

GOT0 17 
900WRITE(6,910) 

910  FORMAT(//////r*“*******************‘*****‘’, /////, 
r  PROGRAM  TERMINATED  BV  OPERATOR', 

2iiiiir . * . ,//////) 

END 

BLOCK  DATA 
REAL  LIN, KA,KB.KC 

COMMON/SVST/DT,PSUP,POUT,TF,WBRL,VS,VO,IIN,TCVC 

COMMON/GEOM/DBVIN,DVSIN,DVOIN,LIN,DIAOIN,DIAIIN 

COMMON/CAP/KA,KB,KC,BB,BC,D 

COMMONA/OID/E 

DATA  DT.  PSUP,  POUT.  TF,  WBRL,  VS.  VO,  IIN,  TCVC  /.01, 

&  40,0. 1 5.0,  30.0,  1 0.0,  0.0,  0.0,  0, 1 0.7  / 
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DATADBYIN,  DVSIN,  DVOIN,  LIN.  DIAOIN,  DIAIIN/ 

&  .075,  .306174.  .43866. 15.5, 5.73.  2.18  / 

DATA  KA.  KB.  KC.  BB.  BC,  D  /  .2133,  .007597.  .05223, 

&  .6414,  .6265, 200./ 

DATA  E/. 37/ 

END 

SUBROUTINE  MENU 
REAL  LIN,KA,KB.KC.LIN1  ,KA1  .KBI.KCI 
DIMENSION  Tl(6),  NY(6).  TI4(6).  NY4(6).  TI5(6).  NY5(6) 

BYTE  KEVIN 
BYTE  YES 
BYTE  loyes 
BYTE  NO 
BYTEIono 

COMMON/SYST/DT.PSUP.POUT.TF.WBRL,VS,VO.IIN.TCYC 
COMMON/GEOM/DBYIN,DVSIN,DVOIN.LIN,OIAOIN.DIAIIN 
COMMON/BEOV/LUMPS,DZ,L,D1  ,D2,MA,MB,MC.RT.AI,AO,AMW01 , 

AM  WL1 .  AMW02,AMWL2,WABR,WBBR 
COMMONA/OID/E 
COMMON/CAP/KA,K8.KC,BB,BC,D 
COMMON/NFINISH/NEXIT 
COMMON/STEP/NSTEP.TSTEP1.TSTEP2.BRSTEP 
COMMON/NPRINT/NOUT1  ,TI,NY 
DATA  YES,loyes/89, 121/ 

DATA  NO.Iono/78, 110/ 

NEXIT-0 

NSTEP-0 

10CALLSYST1 

CALLGEOM1 

CALLCAP1 

WRITE(7,107) 

WRITE(6,107) 

1 07  FORMATC  ENTER  CORRESPONDING  PARAMETER#TO  CHANGE  P/.RAMETERV, 
1 '  ENTER  "0"  TO  SIGNIFY  PARAMETERS  ARE  CORRECT-RUN  SIMULATION'/ 

2'  ENTER  "59"  TO  INSERT  A  STEP  CHANGE  IN  BREATHING  FLOWRATE’, /. 

4'  ENTER  "99"  TO  EXIT  PROGRAM') 

NsO 

READ*,N 

IF(N.EQ.O)GOTO  600 
IF(N.EQ.59)GOTO  500 
IF(N.EQ.99)GOTO  900 
EPS)  -  .0000001 
WRITE(7,120) 

WRITE(6.120) 

1 20  form AT(///,'**"*****"**"*****‘**‘**“********* . 

1  n:  ENTER  THE  PARAMETER  AND  PRESS  "RETURN"',/, 

2//r40,'CURRENT  VALUE',/) 

IF(N.LT.6)GOTO100 
IF(N.LT.12)GOTO200 
IF(N.LE.  16)GOTO300 
GOTO  800 
100  CONTINUE 
IF  (N-2)  159,155.155 
155  IF  (N-3)  164,171,171 
171  IF  (N-4)  170.175,174 
1£9WRITE(6,160)PSUP 
WRITE(7,160)  PSUP 
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1 60  FORMATC  SUPPLY  PRESSURE  (PSIA)M40,F8.4,/) 

READ*,PSUP1 
IF(PSUP1.LT.ESPI)  GOT0 10 
PSUP=PSUP1 
GOT0 10 

164WRITE(6.166)POUT 

1 66  FORMATC  OUTLET  PRESSURE  {PSIA)*.T40,F8.4./) 

READ‘,POUT1 
IF(POUT1.LT.EPSI)  GOT0 10 
POUT-POUT1 
GOT0 10 

170WR1TE(6.172)TF 

1 72  FORMATC  FINAL  OBSERVATION  TIME  (SECy.T40,F8.4^ 

READ*.TF1 

IF{TF1.LT.EPSI)GOTO10 

TF-TF1 

GOT0 10 

175WRITE(6.177)TCYC 

1 77  FORMATC  CYCLE  TIME  (SEC)’.T40.F8.4;) 

READ*.TCYC1 

IF(TCYC1  .LT.EPSI)  GOT0 1 0 
TCYC-TCYC1 
GOT0 10 

174WRITE(6.176)WBRL 

1 76  FORMATC  BREATHING  MASS  FLOWRATE  (STD  LIT/MIN)‘,T40,F8.4;) 
READ‘,WBRL1 

IF(WBRL1  .LT.EPSI)  GOT0 1 78 
WBRL-WBRL1 
GOT0 10 

178  GO  T0 10 
200  CONTINUE 

IF(N-7)  209,215,205 
205  IF(N-9)  225,235,207 
207 1 F(N-1 0)235,245,255 
209WRITE(6,210)DBYIN 

210  FORMATC  BY-PASS  VALVE  DIAMETER  (IN)',T40,F8.4,/) 
READ*,DBYIN1 
IF(DBYIN1  .LT.EPSI)  GOT0 10 
DBYIN-DBYIN1 
GOT0 10 

215  WRITE(6,220)  DVSIN 

220  FORMATC  SUPPLY  VALVE  DIAMETER  (IN)',T40,F8.4,/) 
READ*,DVSIN1 
IF(DVSIN1  .LT.EPSI)  GOT0 10 
DVSIN=DVSIN1 
GOT0 10 

225WRITE(6,230)  DVOIN 

230  FORMATC  OUTLET  VALVE  DIAMETER  (IN)'.T40,F8.4,/) 
READ*,DVOIN1 
IF(DVOIN1. LT.EPSI)  GOTO  10 
DVOIN=DVOIN1 
GOT0 10 

235WRITE(6,240)  LIN 

240  FORMATC  BED  LENGTH  (IN)',T40,F8.4./) 

READ*, UNI 

IF(L1N1. LT.EPSI)  GOT0 10 

LIN=LIN1 

GOT0 10 
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245WRITE(6,250)DIAOIN 

250  FORMATC  OUTER  BED  DIAMETER  (iN)*.T40.F8.4;) 

READ'.DIAOINI 
IF(DIAOIN1.LT.EPSI)  GOT0 10 
DIAOIN-DIAOIN1 
GOT0 10 

255WRITE(6.260)DIAIIN 

260  FORMATC  INNER  BED  DIAMETER  (IN)’.T40.F8.4;) 

READ*,DIAIIN1 
IF(DIAIIN1  .LT.EPSI)  GOT0 10 
DIAIIN-DIAIIN1 
GOT0 10 
300  CONTINUE 
IF(N-1 3)309,31 5.305 
305  IF(N-1 5)325,335.345 
309WRITE{6,310)KA 
310  FORMAT  { '  KA*.  T40.  F8.4.  / ) 

READ*,KA1 

IF  ( KA1  IT.  EPSI )  GOT0 10 

KA-KA1 

GOT0 10 

315WR1TE(6,320)  KB 

320  FORMAT  ( ‘  KB',  T40,  F8.4,  / ) 

READ  *,  KB1 

IF  ( KB1  .LT.  EPSI )  GOT0 10 

KB«KB1 

GOT0 10 

325WRITE(6,330)KC 

330  FORMAT  ( '  KC,  T40,  F3.4,  / ) 

READ*,  KC1 

IF(  KC1  .LT.  EPSI )  GOT0 10 
KC  =  KC1 
GOT0 10 

335WRITE(6,340)D 

340  FORMATC  DIFFUSION  COEFFICIENT  (>100.)*.T40,F8.4,/) 

READ*,D1 

I  F(D1  .LT.EPSI)  GOT0 10 

D-D1 

GOT0 10 

345WRITE(6,350)E 

350  FORMATC  VOID  FRACTION  (c1.)',T40.F8.4,0 

PPAD  *  FI 

IF(E1. LT.EPSI)  GOT0 10 

E«E1 

GOT0 10 

500WRITE(6,510)TF 

WRITE{7,510)TF 

510  FORMAT(////'* . . . . . 

1  ■  ENTER  THE  TIM  E  AT  WHICH  THE  STEP  CHANGE'/ 

2'  IN  BREATHING  FLOWRATE  IS  TO  OCCUR'//, 

3’  THE  FINAL  OBSERVATION  TIME  IS  CURRENTLY  ',F7.2,’  SECONDS'///) 
NSTEP=1 
READ*,TSTEP1 
515WRITE(6.518)TF 
WRITE{7,518)TF 

518  FORMAT(//// . . . . . * . //. 

1  ■  ENTER  THE  TIME  AT  WHICH  THE  STEP  CHANGE'/ 

2'  IN  BREATHING  FLOWRATE  IS  TO  END',//, 
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3’  THE  FINAL  OBSERVATION  TIME  IS  CURRENTLY  •.F7.2;  SECONDS'^//) 
READ  *  TSTEP2 

WRITE(’7^20)  TSTEP1  ,TSTEP2.WBRL 
WRITE(6,520)  TSTEP1  .TSTEP2.WBRL 
520  FORMAT(/r* . 

1  ■  ENTER  THE  NEW  BREATHING  FLOWRATE  OCCURING  ASV, 

2'  A  STEP  CHANGE  FROM  T-  '.F7.2;  TO  T-  •.F7.2;  SECONDS';/, 

3'  THE  CURRENT  BREATHING  FLOWRATE  IS*.F6.2.'  STD  LIT/MIN*;//) 

READ  *  BRSTEP 

WRlTE{7.530)  BRSTEP, TSTEP1  ,TSTEP2 
WRITE(6,530)  BRSTEP,TSTEP1  .TSTEP2 
530  FORMAT(////, 

1 . 

2*  THE  BREATHING  FLOWRATE  OF  ■.F6.2.'  STD  LIT/MIN*; 

3'  WILL  BE  INPUT  AS  A  STEP  AT  T-  •.F7.2. '  SECONDS'/, 

3'  AND  WILL  END  ATT-  ',F7.2. '  SECONDS'////, 

4' . 

GOT0 10 
600  CONTINUE 
WRITE(7.610) 

WRITE(6,610) 

61 0  FORMAT(//////.""“**“*''****''*‘“‘***********';////, 

;  THE  FOLLOWING  PLOTS  ARE  AVAIUBLE  TO  YOU  ON  THE  TERMINAL*;//, 

.'  1  MOLE  FRACTION  OF  OXYGEN  VS.TIME  (DATA  FILE-MOLEFRAC.DAT)';, 
,'  2  INLET  MASS  FLOWRATE  VS.  TIME  (DATA  FILE-FLOWRATE.DAT)'./. 

.'  3  OUTLET  MASS  FLOWRATE  VS.  TIME  (DATA  FILE-FLOWRATE.DAT)*;, 

4  A  DYNAMIC  SIMULATION  FOR  ONE  CYCLE  (OXYGEN  VS.  TIME,';, 

.*  DATA  FILE-PROFILE.DAT)’, /. 

.'  5  DYNAMIC  SIMULATION  OF  PROPAGATION  OF  CONTAMINANT  ALONG',/, 
.'  THE  BED  LENGTH';, 

.III, 

:  PRESS  THE  CORRESPONDING  #  TO  HAVE  THE  OUTPUT  SHOWN  AS  THE',/, 
.'  SIMULATION  TRANSPIRES';////) 

READ(5,630)NOUT1 
630  FORMAT(II) 

IF  (NOUT1  .EQ.  4 )  GOTO  750 
IK  (NOUT1  .EQ.  5 )  GOTO  760 
GO  TO  400 
750  OOJ-1.5 
FJ-FLOAT(J) 

TI4{J)-2.*FJ-1. 

NY4(J)-IFIX(TI4(J)/DT) 

END  DO 

TI4(6)-TCYC 

NY4(6)-IFIX(TI4(6)/DT) 

DOM.1,6 

TI(M).TI4(M) 

NY(M)-NY4(M) 

ENDDO 
GO  TO  400 
760  DOJ-2,5 

FJ-FLOAT(J) 

TI5(J)-(TF/5.)‘(FJ-‘>) 

NY5(J)-1FIX(TI5(J)/DT) 

ENDDO 

TI5(1)-1.0 

NY5(1)-IFIX(T15(1)/DT) 

TI5(6)-TF 
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NY5(6)-IFIX(T!5(6)/DT) 

DOM-1,6 

TI(M)-TI5(M) 

NY(M)-NY5(M) 

ENDDO 

400WRITE(6.410) 

WRITE(7,410) 

41 0  FORMAT(////.'  YOU  HAVE  THE  FOLLOWING  OPTIONS : 

./////, TIO.’I .  ENTER  "0"  TO  RUN  SIMULATION/;. 

.T10.*2.  ENTER -19"TO  CHANGE  THE  PARAMETERS/;, 

.T10.'3.  ENTER  "99"  TO  EXIT  PROGRAM/;////, 

/  ENTER  THE  CORRESPONDING  #  AND  PRESS  "RETURN";////) 

READ*,N69 
IF(N69.EQ.O)  GOTO  820 
IF(N69.EQ.19)  GOT0 10 
IF(N69.EQ.99)  GOTO  900 
800  CONTINUE 
WRITE(7.810) 

WRITE(6,810) 

810  FORMAT(//////**********"****"***************./////, 

1  •  THE  PARAMETER  VALUE  WAS  NOT  INPUT  CORRECTLY'; 

2'  TRY  AGAIN'./////,'*********"***********"********';///) 

GOT0 10 
820WRITE(6,825) 

WRITE(7.825) 

825  FORM  AT(////,'  DO  YOU  WISH  TO  DOUBLE  THE  NUMBER  OF  SPACE  LUMPS  IN'/, 
1 '  THE  SIMULATION  FOR  BETTER  ACCURACY  ?  ( CURRENT  NUMBER  USED '/. 

2‘  IS  50 )  (Y/N)'./////) 

READ  (5,830)  KEYIN 
830  FORMAT(A) 

IF  ( (KEYIN  ,EQ.  YES)  .OR,  (KEYIN  .EQ.  loyes) )  THEN 

LUMPS.  101 

ELSE 

LUMPS -51 
END  IF 
GO  T0 1000 
900  CONTINUE 
NEXIT-1 
1000  RETURN 
END 


SUBROUTINE  SYST1 

COMMON/SYST/DT,PSUP,POUT.TF.WBRL,VS.VO.IIN.TCYC 
WRITE(6,350)PSUP,POUT.TF.TCYC.WBRL 
WRITE(7.350)  PSUP.POUT.TF.TCYC.WBRL 
350  FORMATC  CURRENT  SYSTEM  PARAMETERS  ARE:';, 
r  l.'.TS,'  SUPPLY  PRESSURE-',T30,F8.2.T40.'PSIA',/. 

2'  2.',T5.'  OUTLET  PRESSURE-'.T30,F8.2.T40.'PS1A';. 

3'  3.',T5,'  FINAL  OBSERVATION  TIME-'.T30,F8.2,T40.'SEC';, 

4'  4.',T5,'  CYCLE  TIME-', T30,F8.2,T40,'SEC';, 

5'  5.',T5.'  BREATHING  FLOWRATE-',T30,F8.2,T40.'STD  LIT/MIN') 

RETURN 

END 

SUBROUTINE  GEOM1 
REAL  LIN 

COMMON/GEOM/DBYIN,DVSIN,DVOIN,UN,DIAOIN,DIAIIN 
WR1TE(6.450)  DBYlN,DVSIN,DVOIN,LlN.DIAOiN,DIAIIN 
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WRITE(7,4jO)  DBYIN,DVSIN,DV0IN,UN,DIA0IN.DIAI1N 
450  FORM  AT(’  CURRENT  GEOMETRIC  PARAMETERS  ARE;7. 

1*  e.’.TS;  BY-PASS  VALVE  DIAMETER  - ’,T30,F8.4.T40;iN7. 

2'  7.’,T5;  SUPPLY  VALVE  DIAMETER  -  •,T30.F8.4,T40.*IN7. 

3’  8.’.T5.‘  OUTLET  VALVE  DIAMETER  -  •.T30.F8.4.T40.'IN7, 

4’  g.'.TS;  BED  LENGTH  -  '.T30,F8.4.T40;iN’./. 

5*  lO.'.TS;  OUTER  BED  DIAMETER  -  ’.T30.F8.4.T40,1N7. 

6‘  1 1  .•J5,*  INNER  BED  DIAMETER  *  •,T30.F8.4,T40;iN’) 

RETURN 

END 

SUBROUTINE  CAP1 
REALKA,KB.KC 

COMMON/CAP/KA.KB,KC.BB.BC.D 

COMMONA/OID/E 

WRITE(7,S50)KA.KB.KC.D.E 

WRITE(6,550)KA,KB.KC.D.E 

550  FORM  AT(’  THE  CURRENT  BED  PARAMETERS  ARE:7, 

1'  12.’, TS;  KA  -  •,T30,F8.4.T40,'KGMOLES  02  ADSORBED/KQMOLE  GAS7. 
2'  13.\T5.'  KB  -  •.T30.F8.4.T40.’KGMOLES  CO  ADSORBED/KGMOLE  GAS7. 
3'  14.'.T5;  KC  -  •,T30,F8.4.T40;KGMOLES  N2  ADSORBED/KGMOLE  QAS7. 
4'  15.‘,T5;  DIFFUSION  COEFFICIENT  -  •,T30.F8.2,T40;i/SEC7. 

5'  le.'.TS;  VOID  FRACTION  -  ■.T30.F8.3) 

RETURN 

END 

SUBROUTINE  TIMEF(CVA,PH,PS.T) 

C* . CALCUUTES  CVA(T)  AND  PS(T) 

DIMENSION  CVA(3),PS(2) 

DATAPHI,PH1.PH2.PH3.PH4.PH5.PH6/10m20.,160..180., 

1  200..340..3607 

COMMON/SYST/DT,PSUP,POUT,TF.WBRL.VS,VO.IIN,TCYC 
COMMON/HILOBED/NBED.NB 


PH  -  PHASE  ANGLE  OF  CYCLE  (DEGREES) 
TCYC  -  CYCLE  TIME  (SEC) 


I  *=  0 

PH  «  AMOD  ( 360.*T/TCYC  +  PHI,  360. ) 
IF  (PH-PH1)  1,2,2 

1  RA-PH/PH1 
GO  T0 11 

2  IF  (PH-PH2)  3,4,4 

3  RA-1. 

GO  Toil 

4  IF  ( PH-PH3 )  5,6,6 

5  RA  =  (PH3-PH)/(PH3-PH2) 

GOT011 

6  IF  ( PH-PH4 )  7,8,8 

7  RA  =  (PH-PH3)/(PH4-PH3) 

I » 1 

GO  Toil 

8  IF  (PH-PH5)  9,10,10 

9  RA»1. 

U1 

GOT0 11 


I 

I 
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10  RA-(PH6-PH)/(PH6-PH5) 

11  NBED-I 

IF(  1)12,12,13 

12  PS(1)-PSUP 
PS(2)  -  POUT 
CVA(1)-VS*RA 
CVA(3)-VO*RA 
RETURN 

13  PS(1)-POUT 
PS(2)  -  PSUP 
CVA{1)-VO*RA 
CVA(3)-VS*RA 
RETURN 

END 

SUBROUTINE  INITIAL  (Cl .  02.  N1 .  N2.  XA.  XB.  P ) 

REAL  L,MA.MB,MC,NA01  ,NA02,KA,KB,KO.N1  .N2,NB01  ,NB02,LIN,NC01  ,NC02 
DIMENSION  N1  (300,3).N2(300,3).XA(3).XB(3).P{2) 

COMMONmEDV/LUMPS,DZ.L,D1  ,D2,MA,MB,MC,RT.AI,AO,AMW01  .AMWLI  ,AMW02 
1  ,AMWL2.WBR 

COMMON/CAP/KA.KB,KC.BB,BC.D 

COMMONA/OID/E 

COMMON/GEOM/OBYIN,DVSIN,OVOIN,LIN,DIAOIN.DIAIiN 
C . * . . . . . 

c 

C  RT-GASCONSTANrTEMP(N-M/KGMOLE) 

C  AITOT,AOTOT- INLET ANDOUTLETCONCENTRICBED AREAS( M**2) 

C  MA,MB  -  KGMOLECULAR  WEIGHTS  ( KQ/KGMOLE) 

C  O.L. SUBSCRIPTS  FOR Z-0  AND Z-L 

C  AMW  -  AVERAGE  MOLECULAR  WEIGHT  ( KG  /  KGMOLE ) 

C  1, 2  =  SUBSCRIPTS  FOR  BED  1  AND  BED  2 

C  E- VOID  FRACTION 

C 

Q....................... . . 

RT- 8314.  *300. 

AITOT  -  3.14159  *  (DIA1IN*.0254)”2  /  4. 

AOTOT  .  3.14159  *  (DIAOIN“2-DIAIIN**2)  *.0254**2  /  4. 

L». 0254*  LIN 

PRINT  *,’  BED  LENGTH  (M)  - L 

PRINT  *,*  INLET  BED  AREA  (M**2) .  ’,  AITOT 

PRINT  *,•  OUTLET  BED  AREA  (M**2)  -  AOTOT 

PRINT  VOID  FRACTION  - E 

MA.32. 

MB  -  28. 

MC  «  28. 

AI  =  AITOT*E 
AO-AOTOT*E 

AMW01  -  MA*XA(1)  +  MB*XB(1)  +  MC*(1.-XA(1)-XB(1)) 

AMWL1  -  MA*XA(2)  +  MB*XB(2)  +  MC*{1  .-XA(2)-XB(2)) 

AMW02-AMWL1 

AMWL2  -  MA*XA(3)  +  MB*XB(3)  +  MC*{1  .-XA(3)-XB{3)) 

Cl  =  P(1)*6.895E3/RT 
C2-P(2)*6.895E3/RT 
CA1  .C1*XA(1) 

CA2  -  C2*XA(3) 

CBI-CrXB(l) 

CB2  =  C2‘XB(3) 
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ooo 


CC1-C1-CA1-CB1 

CC2-C2-CA2-CB2 

NA01»CA1/KA 

NA02-CA2/KA 

NB01  -  (CB1/KB)  /  (1  .+CB1/(KB*BB)) 

NB02  » (CB2/KB)  /  (1  .•»-CB2/(KB*BB)) 

NC01  =  (CC1/KC)/(1.+CC1/(KC*BC)) 

NC02  =  (CC2mC)  /(1  .+CC2/(KC*BC)) 

D01 1*1  .LUMPS 
N1(I,1)-NA01+NB01+NC01 
N1(I,2).NA01 
N1(I,3)-NB01 

N2(l,1)  *  NA02  4-  NB02  +  NC02 
N2(I,2)«NA02 
1  N2(I,3)-NB02 
DZ*L/FLOAT(LUMPS-1) 

RETURN 

END 

SUBROUTINE  BEDS  ( P.  W.  XA,  XB.  XABR.  XBBR,  CVA,  PS,  DTG, 
CA1.CA2,CB1,CB2,C1,C2) 

““•SOLVES  BED  EQUATIONS 

REALL,N1.N2,MA.MB.MC 

DIMENSION  CA1  (300).CA2(300),CB1  (300),CB2(300),N1  (300,3),N2(300,3), 

1  G1  (300.3).G2(300.3).XAT(2).XBT(2),XAO{2),XBO{2) 

1  .W(3).XA(3).XB(3).CVA(3),PS(2),PN{2),P(2) 

COMMON/BEDV/LUMPS.DZ,L,D1  ,D2,MA.MB.MC.RT,AI.AO.AMW01  .AMWLI  ,AMW02 
1  .AMWL2.WBR 

COMMON/VOID/E 

COMMON/SYST/DT.PSUP.POUT.TF,WBRL.VS,VO,IIN.TCYC 
COMMON/CAP/KA.KB,KC,BB.BC.D 
COMMON/TIME/T 
C . . . . . . 

c 

C  C  *  TOTAL  GAS  STREAM  CONCENTRATION  ( KGMOLE/  M**3 ) 

C  CA  -  GAS  A  STREAM  CONCENTRATION  ( KGMOLE  /  M“3 ) 

C  N- ADSORBED  PHASE  CONCENTRATION  ( KGMOLE /M“3) 

C  G  -  GAS  PHASE  CONCENTRATION  ( KGMOLE  /  M“3 ) 

C  U -STREAM  VELOCITY  (M /SEC) 

C  Y  =  MOLECULAR  FLUX  ( KGMOLE  /  M“2-SEC ) 

C  L-BED  LENGTH  (M) 

C  D  =  DIFFUSION  COEFFICIENT(1/ SEC) 

C  BETA -D*  AREA  RATIO  (1/SEC) 

C  DT»  TIME  STEP  (SEC) 

C  LUMPS -NUMBER  OF  SPACE  LUMPS 

C  1, 2 -SUBSCRIPTS  FOR  BED  1  AND  BED  2 

C  VBR  -  MIXING  VOLUME  FOR  BREATHING  FLOW  ( M“3 ) 

C  BR  -  SUBSCRIPT  INDICATING  BREATHING  VARIABLE 
C  CP -PLENUM  MOLE  CONCENTRATION  ( KGMOLE/ M**3) 

C  VP  -  BREATHING  PLENUM  VOLUME  ( M“3 ) 

C 

C . . . . . . 

DT-DTG 
DO  4 1-1 ,2 

4  PN(I)  -  PS(I)*6.895E3 
IF(IIN,EQ.1)G0T01 
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IINoi 

CALL  INITIAL  ( C1 .  C2.  N1 ,  N2,  XA.  XB,  P ) 

VPMUL-1. 

VP  =  ,0018*VPMUL 

PRINT  *;  PLENUM  VOLUME  (M**3)  -  ‘.VP 

DO  1=1,7 

PRINT* 

END  DO 

WR1TE(6,10)NULL 

1 0  FORMAT  ( A.  *  PLEASE  WAIT . * ) 

VBR-.5*VP+.0003 
CP  -  .95*AM AX1  ( PN(1  ).PN{2) )  /  RT 
D03U1,2 
XAT(I)-XABR 
3  XBT(I)-XBBR 

1  D1=D 
D2  =  D 

WBR  -  WBRL*4.72E-5  /  2.205 

CALL  CONCEN  (Cl  ,C2,CA1  .CA2,CB1  .CB2,W.G1  ,G2.XA,XB,N1  .N2,PN,CVA) 
XABR-XAT{2) 

XBBR-XBT(2) 

AMWBR  -  MA*XABR  +  MB*XBBR  +  MC‘(1  .-XABR-XBBR) 

DO  5 1-1,2 
XAO(l)-XAT(l) 

5  XBO(I)  -  XBT(I) 

DO  2 1-1  ,LUMPS 

N1(l,1) «  N1(l,1)  -  D1*(Q1(I,1)-C1)*DT 
N1(l,2)  -  N1(l,2)  -  D1*(G1(I,2)-CA1(I))‘DT 
N1(l,3)  -  N1(l,3)  -  D1*(G1(I,3)-CB1(I))*DT 
N2{1,1)  -  N2(l.1)  -  D2*(G2(I,1)-C2)*DT 
N2{l.2) »  N2{l,2)  -  D2*(G2(I,2)-CA2(I))*DT 
N2(l,3)  -  N2{l,3)  -  D2*(G2(I,3)-CB2(I))*DT 

2  CONTINUE 

FAC  -  CP  *VBR*  AMWBR 
TAUI-WBR/FAC 

XAT(1)  -  XAO(1)  +  TAUI*(XA(2)-XAO(1))*DT 
XBT(1)  -  XBO(1)  +  TAUI*(XB(2)-XBO(1))‘DT 
XAT(2) »  XAO(2)  +TAUr(XAO(1)-XAO(2))*DT 
XBT(2)  -  XBO(2)  +  TAUI*(XBO(1)-XBO(2))*DT 
P(1)-C1*RT/6.895E3 
P(2)-C2*RT/6.8g5E3 

AMW01  -MA*XA(1)  +  MB*XB(1)  +  MC*(1.-XA(1)-XB(1)) 

AMWL1  -  MA*XA(2)  +  MB*XB(2)  +  MC‘(1  .-XA(2)-XB(2)) 

AMW02-AMWL1 

AMWL2  -  MA*XA(3)  +  MB*XB(3)  +  MC‘(1  .-XA(3)-XB(3)) 

RETURN 

END 


SUBROUTINE  CONCEN(CG1  ,CG2,CA1  ,CA2,CB1  .CB2,W,G1  ,G2, 

1  XA,XB,N1,N2,PN,CVA) 

C‘***‘SOLVES  FOR  CONCENTRATIONS 
REALL,N1,N2,MA,MB,MC 

Dl  M  ENSION  C  A1  (300)  ,C  A2(300)  ,CB1  (300)  ,CB2(300)  ,N  1  (300,3)  ,N2(300,3) 

1  ,G1  (300,3)  ,G2(300,3) 

DIMENSION  GI1(300),GI2(300),PN(2),W(3),XA(3).XB(3).CVA(3) 
COMMON/BEDV/LUMPS,DZ,L,D1  ,D2.MA,MB,MC,RT,AI,AO,AMW01  ,AMWL1  ,AMW02 
1  .AMWL2,WBR 
COMMONA/OID/E 


RETURN 

END 


SUBROUTINE  CONCAB  ( CG,  CA,  CB,  G,  Gl,  UOG,  ULG,  XAO,  XAL, 

I  1  XBO,XBL,BETAG,ARG) 

i  C . SOLVES  FOR  CONCENTRATION  OF  GAS  A  AND  B 

■  REAL  L2  L 

I  DIMENSION  CA(300),CB{300),G{300,3),GI(300),XA(2),XB(2), 

1  U(300).YA(300).YB(300) 

COMMON/BEDV/LUMPS.DZ,L.D1  .D2.MA.MB.MC,RT.AI.A0,AMW01  .AMWL1  ,AMW02 
1  ,AMWL2,WBR 

I  COMMONA/OID/E 

I  COMMON/TIME/T 

C  =  CQ 

BETA»BETAG 
UL  =  ULG 
U0»U0G 
XA{1)-XA0 
\  XA(2)  =  XAL 

i.  XB(1)»XB0 

;  XB(2)  =  XBL 

AR»ARG 

LUM2-(LUMPS+1)/2 

GIL2.QI(LUM2) 

L2-.5*L 

IF  (U0**2+UL**2)  22,22,23 
C******ZERO  FLOW  SOLUTION 

22  DO  24 1-1  .LUMPS 

:  CA(I)«G(I,2) 

24  C8(l)  =  G(l,3) 

RETURN 

23  CONTINUE 
CA(1)»C*XA(1) 

CB(1)-C*XB(1) 

U(1)-U0 

I  YA{1)«U0*CA(1) 

'  YB(1)-U0*CB(1) 

CA(LUMPS)»C*XA(2) 

CB(LUMPS)-C*XB(2) 

YA(LUMPS)  -  UL*CA(LUMPS) 

YB(LUMPS)  =  UL*CB(LUMPS) 

Z-0.0 


C . ICR  IS  INDEX  INDICATING  U-0  IN  BED 

ICR-1 
ICR1  -  ICR-1 


C‘**“*SOLVE  FOR  U  IN  BED  J 

DO  3 1=2, LUMPS  i 

IM1-I-1  H 

Z-Z+DZ  5 

IF  {IM1-LUM2)  35,34,34  r 

35  U(I)  =  U(1)+BETA*(GI(I)/C-Z)  f- 

GO  TO  36  C 

V 

V 

V 
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34  U(l)  -  AR*U(LUM2)  +  BETA*(  (GI(I)-GIL2)/C  -  Z  +  L2 ) 

36  CONTINUE 

C******CHECK  SIGN  CHANGE  OF  U 

IF  (U(1)*U(IM1))  8,9,3 

8  ICR -I 
ICR1  >=  ICR-1 

C****“CALCULATE  INTERIOR  INITIAL  FLUX  ( U0<0.  UL>0 ) 
ULAST-U(IMI) 

IF  ( IM1  .EQ.  LUM2 )  ULAST-AR‘ULAST 
DZCR  =  DZ*U{I)  /  ( U(I)-ULAST ) 

DTC  =  DZCR-DZ 

R1  =  U(ICR)/DZCR 

R3A-(G(I,2)-G(IM1,2))/DZ 

R3B-(G(I,3)-G(IM1,3))/DZ 

R2A  =  G(IM1,2)-R3A*DTC 

R2B-G(IM1,3)-R3B*DTC 

A1 A  =  BETA*R2A*R1  /  ( BETA+R1 ) 

A1B  -  BETA*R2B‘R1  /  ( BETA+R1 ) 

A2A  -  BETA*R3A*R1  /  ( BETA+2/R1 ) 

A2B  -  BETA*R3B*R1  /  ( BETA+2/R1 ) 

YA(ICR)  -  A1  A*DZCR  +  A2A*DZCR*DZCR 
YB{ICR)  -  A1B*DZCR  +  A2B*DZCR*DZCR 
YA{ICR1 )  -  A1  A*DTC  +  A2A*DTC*DTC 
YB(ICRI)  -  A1B*DTC  +  A2B*DTC*DTC 
CA(ICR)  =  YA(ICR)/U(ICR) 

CB(ICR)-YB{ICR)/U(ICR) 

CA(ICRI)  -  YA(ICRI)  /  ULAST 
CB(IGR1 )  -  YB(ICR1 )  /  ULAST 
GO  TO  3 

9  ir  1-1 
ICR1  -i 
YA(ICR)  -  0.0 
YB(ICR)-0.0 
IF  (UO)  3,25,3 

25  ICR-1 
ICR1-1 
YA{1)-0.0 
YB(1)-0.0 
3  CONTINUE 
UL-U(LUMPS) 

C“***‘LOGIC  FOR  FORWARD  INTEGRATION 
ISIG  - 1 

IF  (UL)  14,14,15 

14  IST-1 

IF  (UO)  12,20,21 
21  CONTINUE 
IT- ICR-2 
IF(IT)12,12,11 
20  ICR  =  1 
ICR1  - 1 
GO  T0 12 

15  CONTINUE 
1ST -ICR 
IT-LUMPS-ICR 
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IF  (IT)  12,12,11 
11  CONTINUE 

C“****SOLVE  FOR  CA 

DO10J=1,lT 
l  =  IST  +  ISIG*J 
IM1  =  l-ISIG 

IF  (IM1-LUM2)  33,30,33 

30  IF(ISIG)31,33,32 

31  YA(IM1)»YA(IM1)/AR 
YB(IM1)  =  YB(IM1)/AR 
U(IM1)  =  U(IM1)/AR 
GO  TO  33 

32  U(IM1).AR*U(IM1) 

YA(IM1)  =  AR*YA(IM1) 

YB(IM1)  =  AR‘YB(IM1) 

33  CONTINUE 
R0  =  U(IM1) 

IF  ( I  -EQ.  LUM2  .AND.  ISIG  .EQ.  -1  )  U(I)=AR*U(I) 

R1  =(U(1)-R0)/DZ 
R2A  =  G(IM1,2) 

R2B  =  G{IM1,3) 

R3A  =  (G(I,2)-R2A)/DZ 
R3B-(G{I.3)-R2B)/DZ 
IF  (  R1  )  6,7,6 

7  AOA  -  (  R2A-R3A*R0/BETA )  *  RO 
AOB  -  ( R2B-R3B*R0/BETA )  *  RO 
A1A=R3A*R0 
A1B  =  R3B*R0 
BR«BETA/R0 

YA(I)  =  ( YA(IM1  )-A0A  )*EXP{-BR*DZ)  +  AOA  +  A1  A*DZ 
YB(I)  =  ( YB(IM1  )-A0B  )*EXP(-BR*DZ)  +  AOB  +  A1  B*DZ 
GOT0 10 

6  A2A  =  BETA*R3A*R1  /  ( BETA+2.*R1 ) 

A2B  -  BETA*R3B*R1  /  ( BETA+2.*R1 ) 

A1 A  =  {  BETA*(R3A*R0+R2A*R1 )  -  2.*A2A*R0 )  /  ( BETA+R1 ) 

A1 B  » ( BETA*(R3B*R0+R2B*R1 )  -  2.*A2B*R0 ) !  ( BETA+R1 ) 
AOA  =  ( BETA*R0*R2A-A1  A*R0 )  /  BETA 
AOB  =  (  BETA*R0*R2B-A1  B*R0 )  /  BETA 
IF  (  RO )  26,27,26 

27  YA(I)*A1A*DZ  +  A2A*DZ‘DZ 
YB(I)  =  A1  B*DZ  +  A2B*DZ*DZ 
GO  TO  28 

26  CONTINUE 
BR  =  BETA/R1 

YA(I) .  ( YA(IM1)-A0A)*(  1.+R1*DZ/R0)**(-BR)  +A0A  + A1A*DZ 
+  A2A*DZ*DZ 

YB(I)  =  ( YB(IM1  )-A0B  )*(  1  .+R1*DZ/R0  )**(-BR)  +  AOB  +  A1B*DZ 
+  A2B*DZ*DZ 

28  CONTINUE 

IF  (U(l))  18,19,18 
19  CA(I)  =  C*G(I,2)/G(I,1) 

CB(I)  =  C*G(I,3)/G(I.1) 

GOT0 10 

18  CA(I)  =  YA(I)/U(I) 

CB(I)  =  YB(I)/U(I) 

10  CONTINUE 
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IF(ICR.EQ.1)G0T013 
IF  (DZ)  13,13,12 
12  CONTINUE 

C . LOGIC  FOR  BACKWARD  INTEGRATION 


DZ-DZ 
ISIG  =  -1 

IF  (UL)  16,16,17 

16  1ST -LUMPS 
IT- LUMPS -ICR 

IF  ( ICR  .EQ.  ICR1 )  IT-IT-1 
IF  (IT)  13,13,11 

17  CONTINUE 
IST-ICP1 
IT-ICR1-1 

IF(  IT)  13,13,11 
13  CONTINUE 
XA(1)  =  CA(1)/C 
XA(2)-CA(LUMPS)/C 
XB(1)-CB(1)/C 
XB(2)-CB(LUMPS)/C 
DZ  =  FLOAT{ISIG)‘DZ 
XA0  =  XA(1) 

XAL  =  XA(2) 

XB0  =  XB(1) 

XBL  =  XB(2) 

RETURN 

END 

SUBROUTINE  CAPZ(N,G,  I ) 

REAL  KA,KB,KC,N,NA,NB,NC 
DIMENSION  N(300,3),G(300,3) 
COMMON/CAP/KA,KB,KC,BB,BC,D 
NA-N(I,2) 

NB  »  N(l,3) 

NC  =  N(I,1)-NA-NB 

G(I,2)  =  KA*NA 

G(I,3)  =  KB*NB/{1.-NB/BB) 

GC-KC*NC/(1.-NC/BC) 

G(I,1)  =  G(I,2)  +  G(I,3)  +  GC 
RETURN 
END 

SUBROUTINE  VALVE  ( A,  PU,  PD,  W ) 
C********CALCULATES  VALVE  MASS  FLOWRATE  KG/SEC 
REALKI 

DATA  Kl,  Cl ,  C2,  CK  /  .714,  .00906,  .00234,  .286  / 

PUL-PU 

PDL  =  PD 

PR-PDL/PUL 

SIG  =  1. 

IF(  1. -PR)  4,3,2 

3  W  =  0. 

RETURN 

4  PR-1./PR 
PUL  =  PDL 
SIG  =  -1. 

2  CONTINUE 

IF  (PR  .LT.  ,528)  GO  TO  1 
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PRR.1.-PR*‘CK 

W  =  SIG*  A‘C1  •PUL*(PR**KI)''SQRT(PRR) 

RETURN 

1  W  =  S1G*A*C2*PUL 
RETURN 
END 

SUBROUTINE  VAQ  ( CG1 ,  CQ2 ) 

C*‘‘*“ITERATlON  AND  FALSE  POSITION  TO  SOLVE  VALVBBED  EQUATIONS 
EXTERNAL  FI  .F2 

COMMON/BEDV/LUMPS.DZ,L.D1  ,D2,MA.MB.MC.RT,AI,AO,AMW01  ,AMWL1  .AMW02 
1  ,AMWL2,WBR 

COMMONWBECW1  ,W2,W3,U01  .UL1  .U02,UL2,PN1  .PN2,VA1  ,VA2,VA3 
1  ,BGI1L,BQI1L2,BGI2L,BGI2L2,BL21,BL22,P1,P2 
Cl  =CG1 
C2  =  CG2 
P1  =C1*RT 
P01  =  PI 
J  =  1 

10  FC2  =  F2(C2) 

1  CN2  =  C2*(1.-FC2) 

I F  ( ABS(CN2-C2)/C2  .LE.  1 .  E-6 )  GO  TO  2 
FCN2-F2(CN2) 

IF  (FC2‘FCN2)  4,3,3 

3  C2  =  CN2 
FC2=FCN2 
G0T01 

4  C2  =  FP(F2,FCN2,CN2.FC2,C2) 

2  CONTINUE 
FC1=F1(C1) 

5  CN1=C1‘(1.-FC1)  • 

IF  ( ABS(CN1  -Cl )/C1  .LE.  1  .E-6 )  GO  TO  6 
FCN1=F1(CN1) 

IF(FC1*FCN1 )  8,7,7 

7  C1=CN1 
FC1  =  FCN1 
GO  TO  5 

8  C1=FP{FI,FCN1,CN1,FC1,C1) 

6  IF(ABS(P1-P01)/P1  .LE.1.E-6)G0T09 

P01  =  PI 

IF(J.LE.  20)  GOTO  10 
PRINT  100 

1 00  FORMAT  ( 1 X,  "FAILED  TO  CONVERGE*’ ) 

9  CGI -Cl 
CG2-C2 
RETURN 
END 

FUNCTION  F1  ( CGI ) 

C******BED  1  VALVE/BED  EQUATION 

COMMON/BEDV/LUMPS,DZ,L,D1  ,D2,MA,MB.MC,RT,AI,AO,AMW01  ,AMWL1  ,AMW02 
1  ,AMWL2,WBR 

COMMON/VBEQAA/1  .W2,W3,U01  ,UL1,U02,UL2,PN1  ,PN2,VA1  ,VA2,VA3 
1  ,BGI1L,BG11L2,BGI2L,BGI2L2,BL21,BL22,P1,P2 
Cl  =  CGI 
P1  =  C1*RT 

CALL  VALVE  ( VA1 ,  PN1 ,  P1 ,  W1  ) 

CALL  VALVE  ( VA2,  Pi ,  P2,  W2  ) 

IF{P1-P2)  1,2,3 


1  WBR1=0. 

GO  TO  4 

2  WBR1=.5*WBR 
GO  TO  4 

3  WBR1-WBR 

4  CONTINUE 

U01  =:W1/(C1‘AMW0rAI) 

ULI  ={W2+WBR1  )/(C1*AMWLrAO) 

AR  =  Al/AO 

FI  =  1.-(AR‘BGI1L2+BGI1L)/((UL1+BL21-AR*(U01-BL21))*C1 ) 

RETURN 

END 

FUNCTION  F2{CG2) 

C******BED  2  VALVE/BED  EQUATION 

COMMON/BEDV/LUMPS,DZ,L.D1  .D2.MA.MB,MC,RT,AI,AO,AMW01  .AMWLI  ,AMW02 
1  ,AMWL2.WBR 

COMMONA/BEQAV1  ,W2,W3.U01  ,UL1  ,U02,UL2,PN1  .PN2,VA1  ,VA2.VA3 
1  ,BGI1L.BGI1L2,BGI2L,BGI2L2,BL21  .BL22.P1  ,P2 
C2  =  CG2 
P2  =  C2‘RT 

CALL  VALVE  ( VA2,  P1 .  P2,  W2 ) 

CALL  VALVE  ( VA3,  P2.  PN2.  W3 ) 

IF  (P2-P1)  1,2,3 

1  WBR2  =  0. 

GO  TO  4 

2  WBR2  =  .5*WBR 
GO  TO  4 

3  WBR2«WBR 

4  CONTINUE 

U02  =  ( W2-WBR2 )  /  ( C2*AMW02*AO ) 

UL2-W3/(C2*AMWL2*AI) 

AR-AO/AI 

F2  »  1 .  -  ( AR‘BG!2L2+BGI2L )  /  ( (UL2+BL22-AR*(U02-BL22))*C2 ) 

RETURN 

END 

FUNCTION  FP  ( F,  FXR,  XR,  FXL,  XL ) 

C . USES  FALSE  POSITION  TO  FIND  ZERO 

DATA  EPS /1.E-6/ 

UO 

3  X  =  XL-FXL*{XL-XR)/(FXL-FXR) 

FX  =  F(X) 

1  =  1+1 

IF  (  mBS(FX)  .LT.  EPS )  GOTO  4 
IF(I.GT.50)GOTO4 
IF  (FX*:'XL)  1,1,2 

1  XR  =  X 

FXL  =  FXL*FXR/(FXR+FX) 

FXR  =  FX 
GOTO  3 

2  XL  =  X 

FXR  =  FXR‘FXL/(FXL+FX) 

FXL  =  FX 
GOTO  3 

4  FP  =  X 
RETURN 
END 


subroutine  zetaplt(nplot,ncvs,npts,range,x,/,ny,xaxis,nxaxis, 


yaxis.nyaxis) 

dimension  x(300)  ,y  (302, 1 1 )  ,c(6)  ,range(4)  ,xaxis(1 0)  ,yaxis(1 0} 

data  axlenx.axleny !  7.0, 5.0  / 

call  plots  { 0, 0,  nplot ) 

call  plot  (0.5, 0.5, -3) 

call  factor  ( 0.65 ) 

if  ( (range(l).eq.O.)  .and.  (range(2).eq.0.) )  then 
call  scale  ( x,  axlenx,  npts,  1 ) 
else 

x(npls+1)  =  range(t} 
x(npts+2}  -  (range(2)-range(1))/axlenx 
end  if 

if  ( (range(3).eq.O.)  .and.  (range(4).nq.o.) )  then 
call  scale  ( y,  axleny,  npts,  1 ) 
else 

y(npts+1,1)-range(3) 
y(npts+2,1) « (range(4)-range(3))/axleny 
end  if 

if  ( ncvs  .ge.  2 )  then 
do  n  -  2,ncvs 
y(npts+1  .n)  y(npts+1 ,1) 
y(npts+2,n) «  y(npts+2.1 ) 
end  do 
end  if 

call  axis  ( 0.0, 0.0,  xaxis,  -nxaxis,  axlenx,  0.0, 
x(ripts-i-l),  x(nptS'»-2) ) 

call  axis  ( 0.0, 0.0,  yaxis,  nyaxis,  axleny,  90.0, 
y(npts+1,1),y(npts+2.1)) 
dom=l,ncvs 

call  line  ( x,  y(1  ,m),  npts,  1 , 0, 2 ) 
end  do 

call  plot  (0.0, 0,0, 999) 

return 

end 

SUBROUTINE  SCALE1  ( Y.  YABS ) 

COMMON/HILCBED./NBED 

INTEGER  YABS 

DY-1.0-Y 

DRY -DY*  150.0 

IDY«IF1X(DPY) 

YABS -IDY  + 100 

RETURN 

END 

SUBROUTINE  SCALE2  ( Y,  YABS ) 

COMMON/HILOBED/NBED 

INTEGER  YABS 

DY«1.0-Y 

DRY -DY*  150.0 

lOY-IFIX(DPY) 

YABS  =  IDY  +  300 

RETURN 

END 

SUBROUTINE  INITIAL1  { YABS1 ,  YABS2.  NBED ) 

INTEGER  YABS1.YABS2 
IF  ( NBED  .EQ.  0 )  THEN 
WRITE(9,100)YABS1 
ELSE 
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WRITE(9.100)YABS2 
END  IF 

100  FORMAT  (3X.*  PI275.'I3T) 

RETURN 

END 

SUBROUTINE  INITIAL2  ( YABSI .  YABS2,  NBED ) 

INTEGER  YABS1,YABS2 
IF  (NBED  .EQ.0)THEN 
WRITE(9,100)  YABS2 
ELSE 

WR1TE(9, 100)  YABSI 
END  IF 

100  FORMAT  (3X,'  PI575.’I3']' ) 

RETURN 

END 

SUBROUTINE  DRAWF  ( XABS,  YABS,  NM ) 

C  DRAW  VECTORS  FROM  PREVIOUS  CURSOR  POSITIONSTOCURRENT  POINTS 
CFORWARDPLOTTING 
INTEGER  XABS,  YABS 
WR1TE(9.100)  NM. XABS, YABS 
100  FORMAT  (3X.  *  W(R.N'IT)VDVri3'.'l3T ) 

RETURN 

END 

SUBROUTINE  DRAWB  ( XABS.  YABS,  NM ) 

C  BACKWARD  PLOTTING 
INTEGER  XABS.YABS 
WRITE(9,100)  NM,  XABS,  YABS 
100  FORMAT  (3X, '  W(R,N*ir)VDVl*13’,  'I3T ) 

RETURN 

END 

SUBROUTINE  TXTERASE  (NTICKS) 

C  ERASETHEVT125  TEXT  SCREEN 
LOGICAL  ERASE 
DIMENSION  ERASE(4) 

DATA  ERASE/ 27,  T, '2', 'J'/ 

IF(NTICKS.NE.0)THEN 
DO  1-1,7 

CALL  DELAY  (NTICKS) 

END  DO 
ELSE 
END  IF 

TYPE  10,  ERASE 
10  FORMAT(V,5A1,$) 

RETURN 

END 

SUBROUTINE  REGISTART 
C  SETS  VT125  INTO  GRAPHICS(REGIS)  MODE 
LOGICAL  GRAPHIC 
DIMENSION  GRAPHICO) 

DATA  GRAPHIC/ 27, 'P.'p'/ 

TYPE  10,  GRAPHIC 
10  FORMAT! V.5A1.$) 

RETURN 

END 

SUBROUTINE  PLTERASE 
C  ERASES  PLOTS 
LOGICAL  ERASE 
DIMENSION  ERASE(4) 
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DATA  ERASE /’S'.  ’E’, ')'/ 

TYPE  10,  ERASE 
10  FORMAT(’+’,SA1,$) 

RETURN 

END 

SUBROUTINE  FRAME1 
WRITE(9,110) 

1 1 0  FORMAT  ( •  P(250.51T(S2)''OBOGS  SIMULATION" ) 

WRITE(9.112) 

1 1 2  FORMAT  ( •  Pt30.30]T(S1  )TIME  -  SEC.  •" ) 

WRITE(9.114) 

114  FORMAT  ( •  PI260,95iri-P(260,245ir0’" ) 

WRITE(9.116) 

11 6  FORM  AT  ( •  PI260,29Srri  "PI260, 445^0" ) 

WRITE(9,120) 

1 20  FORMAT  ( ’  Pl400,80ir’BED  #1 " ) 

WRITE(9,130) 

130  FORMAT  {•PI400,280rrBED  #2") 

WRITE(9,140) 

140  FORMAT (•Pl20.255ir INLET") 

WRITE(9.150) 

150  FORMAT  ( *  PI5,275irPRESSURE- ) 

WRITE(9.160) 

1 60  FORMAT  ( ’  PI1 95,1 1 2]T’R.V," ) 

WRITE(9,170) 

170  FORMAT (' PigS.AOOlTEXHAUST" ) 

WRITE(9.180) 

180  FORMAT  ( ‘  P(1 15,450]rGAS“ ) 

WRITE(9.190) 

190  FORMAT  (•P1624,268]rP.O.") 

WRITPfQ  1Q9) 

192  FORMAT  ( *  PI680,1 12]rB.P." ) 

WRITE(9.193) 

193  FORMAT  ( '  P1720,412JV00000P[730,403IT"0%“’ ) 

WRITE(9.195) 

195  FORMAT  ( '  P[720,356]V00000Pp30.349jr20%" ) 

WRITE(9,196) 

196  FORMAT  ( ’  P1720,1321V00000P1730, 123^100%” ) 

WRITE(9,200) 

200  FORMAT  ( '  P[275,100]V[575,100]V(575,250M275,2501V[275,100]’) 
WRITE(9.210) 

210  FORMAT  ( '  PI275.3001V[575,3001Vl575,450)Vl275.4501Vl275,300r ) 
WRITE(9.300) 

300  FORMAT  ( '  PI575,162]V(670.162M670,132M720.132)VI720.412)’ ) 
WRITE(9.310) 

310  FORMAT  ( '  VI670,412)V1670.382]V[575,382]P[575.182]’ ) 
WRITE(9.400) 

400  FORMAT  ( ‘  VI600,182]V[600.267]V1605.272]V1600.277]VI600,362]* ) 
WRITE(9,410) 

410  FORMAT  ( ’  VI575,362]P[620,182]V(670,182|VI670.362]V1620,362]’ ) 
WRITE(9,450) 

450  FORMAT  ( ’  V(620,277]VI615,272]V[620,2671VI620,182]’) 
WRITE(9,460) 

460  FORMAT  ( ’  PI720,262]V(750,262]V(750,282]VI720,282]’ ) 
WRITE(9,500) 

500  FORMAT  ( ’  P1275,162]V[240,162]V[240,132]V{180,132]’ ) 
WRITE(9,510) 

510  FORMAT  ( '  VI180.162)V[1 18,162]V(1 18.262r ) 
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WRITE(9.520) 

520  FORMAT  ( *  P(275,182]V[240.1821P(180.182M138,1821VI138.262] 

1  ■) 

WRITE(9,540) 

540  FORMAT  ( '  PI1 18,282)711 18.420)71138, 420)71138, 3821‘ ) 
WRITE(9,600) 

600  FORMAT  ( '  7[1 80,382)711 80,41 2)7)240,41 2)71240.382)71275,382)’) 
WRITE(9,610) 

610  FORMAT  ( '  P[180.262)7l80,262)7I80,282r ) 

WRITE(9.700) 

700  FORMAT  ( '  7[180,282)7(180.362)7t138,362)7l138.282)Pl275,362r ) 
WRITE(9.710) 

710  FORMAT  ( ’  P[275.362)7[240.362)7I240.182)Pl180.182)7l180.262r ) 
WRITE(9,730) 

730  FORMAT  ( ’  P[630.1 62)7(630,1 67)7)640,1 62r ) 

WRITE{9,735) 

735  FORMAT  ( ’  P(e30,182)7)630,177)7)640.182r ) 

WRITE(9.740) 

740  FORMAT  ( ‘  P(630, 362)7)630, 367)7)640.362r ) 

WRITE(9.750) 

750  FORMAT  ( '  P(630,382)7)630.377)7)640.382r ) 

RETURN 

END 

SUBROUTINE  NEWTIME  ( TIME.NW ) 

WRITE{9.100)NW,TIME 
100  FORMAT) 'W(N'I1*)P)110,30)T(S1)-F6.2"") 

RETURN 

END 

SUBROUTINE  FRAME2  ( NBED.NW) 

IF(NBED  .EQ.1)THEN 
WRITE(9.710)NW 

710  FORMAT  ( ’  W(N’ir)P)180.262)7)240.362r ) 

ELSE 

WRITe(9,720)NW 

720  FORMAT  ( '  W(N’I1  •)P)1 80.262)7)240,1 62r ) 

END  IF 

WRITE(9,730)NW 

730  FORMAT  ( ’  W(N’I1’)P)630, 162)7)630,167)7)640,162)’ ) 
WRITE(9.735) 

735  FORMAT  ( '  P)630,182)7(630,177)7(640.182r ) 

WRITE(9,740)NW 

740  FORMAT  ( ’  W(N’i1')P)630, 382)7)630.36717)640.362)’ ) 
WRITE(9,750) 

750  FORMAT  ( ’  P)630,382)7)630.37717)640.382r ) 

IF(NBED.EQ.1  )THEN 
WRITE{9,800)NW 

800  FORMAT  ( *  W|N’I1’)P)1 80, 282)7)240, 382r ) 

WRITE(9.805) 

805  FORMAT  ( ’  P(240,162]7)180.162)P)240.182)7)180.182)’ ) 
WRITE(9,810)NW 

810  FORMAT  ( ’  W(N’I1’)P(1 13,272)7)143,272)' ) 

WRITE(9,815) 

815  FORMAT  ( ’  P(136.268]7Q7(143,272)7[136,276)’ ) 

WRITE(9,820)NW 

820  FORMAT  ( ’  W(N’l1')P)590,372)71625,372r ) 

WRITE(9.825) 

825  FORMAT  ( ’  P(620,369)7D71625, 372)7)620.375)’ ) 

WRITE(9,830)NW 
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830  FORMAT  ( '  W(N’ir)P[610,320]Vl61 0,290]* ) 

WRITE(9,835) 

835  FORMAT  ( *  P[607,295]VQV1610,290M613.2951* ) 
WRITE(9.840)NW 

840  FORMAT  ( ’  W(N'l1’)P[610.172]Vl585.172r ) 

WRITE(9,845) 

845  FORMAT  ( ’  P[590,169|VOVI585.172M590.175r ) 
WRITE(9,850)NW 

850  FORMAT  ( *  W(N'I1‘)P[1 28.352lVl128.392r ) 

WRITE(9.855) 

855  FORMAT  ( *  P(124.385]VDVI128.392]V[1 32.385]* ) 
WRITE(9.860)NW 

860  FORMAT  ( *  W(N*l1*)P[638.172]C[632,166r ) 

WRITE(9,86S) 

865  FORMAT  ( *  P[645,1721V1 1 117777111177771 111000*) 
WRITE{9.870)NW 

870  FORMAT  ( *  W{N*l1*)Pl650,372jC{643.372J* ) 

WRITE(9.880) 

880  FORMAT  {*  P(657,372jV1 11 177771 11 100*) 

ELSE 

WRITE(9.900)NW 

900  FORMAT  ( *  W(N*l1*)P[180,282M240.182r ) 

WRITE(9.90S) 

905  FORMAT  ( *  P1180.362M240,362]PI180.382M240.382]* ) 
WRITE(9.910)NW 

910  FORMAT  ( *  W(N*I1*)P(1 13.272M143.272r ) 

WRITE(9.915) 

915  FORMAT  ( *  P[136,2681VQVI143.272]V1136.276|* ) 
WRITE(9,920)NW 

920  FORMAT ( *  W{N(1*)P(590.172]V1615.172J*) 

WRITE(9.925) 

925  FORMAT  ( *  PI608,168]VnVI615,172M608.176]* ) 
WRITE(9,930)NW 

930  FORMAT  ( *  W{N*l1')P[610.222]VI610,252r ) 

WRITE(9.935) 

935  FORMAT  ( '  P(606.245]VnV[610.252JVl614.245J* ) 
WRITE{9,940)NW 

940  FORMAT  ( '  W(N*11')P[610.372]V[580,372r ) 

WRITE(9.945) 

945  FORMAT  ( *  P(587,3681VDVI580.372]VI587,376r ) 
WRITE(9,950)NW 

950  FORMAT  ( *  W(N*IV)PI159,372]VI128.3721V1128.390]* ) 
WRITE(9.955) 

955  FORMAT  ( *  P[124.381]VaVl128.390]V(132.381J’ ) 
WRITE(9.960)NW 

960  FORMAT  ( *  W(N*I1 ')P[650,1 72)01643.  .'72r ) 
WRITE(9.965) 

965  FORMAT  ( *  P[657, 1 72]V1 1 1 1 77771 11100*) 
WRITE(9.970)NW 

970  FORMAT  ( *  W(N*ir)Pl638,372JC(633.366]* ) 
WRITE(9,980) 

980  FORMAT  ( *  P[645,3721V1 1 1177771 1 1177770000* ) 

END  IF 

RETURN 

END 

SUBROUTINE  REGISOUT 

C  SETS  VT125  BACK  INTO  TEXT  MODE 
LOGICAL  ALPHA 


DIMENSION  ALPHA(2) 

DATA  ALPHA/ 27,  ^7 
TYPE  10,  ALPHA 
10  FORMAT  (V.5A1.$) 

RETURN 

END 

SUBROUTINE  DELAY  ( NTICKS ) 

TYPE  100, NTICKS 
100  FORMAT  {'+S{T<*I3*>)',$) 

RETURN 

END 

SUBROUTINE  SCALEM  ( Y,IYABS,W, RANGE ) 

DY-((W-Y)‘300.0)/RANGE 

IDY-IFIX(DY) 

IYABS.IDY  +  90 

RETURN 

END 

SUBROUTINE  STIME  ( TIME,IXABS,RANGE.AXLEN,SHIFT ) 

INTEGER  SHIFT 

OX  « ( TIME  *  AXLEN )  /  RANGE 

IDX«IFIX(DX) 

IXABS-1DX  + SHIFT 

RETURN 

END 

SUBROUTINE  FRAME 

COMMON/SYST/DT,PSUP,POUT,TF,WBRL.VS.VO,IIN,TCYC 

COMMON/NPRINT/NOUT1 

D1MENSIONT(10) 

DELT-TF/10.0 
DOM, 10 
T(I)-I*DELT 
END  DO 
TYPE  10 

1 0  FORMAT  ( ’IP(1 30,390IV[+60,]V[,+5]’ ,  $ ) 

DO  U1,9 
TYPE  12 

1 2  FORMAT  ( •!P1,-5]V[+60.1VI,+51' ,  $ ) 

END  DO 
TYPE  20 

20  FORMAT  ( 'IP1120.398]T"0.0"  ,  $ ) 

TYPE  21  ,T(1),T(2) 

21  FORMAT  ( ■|P(160,398ir"F5.1’"P[220,398J'rF5.1’"’ ,  $ ) 
TYPE22,T(3).T(4) 

22  FORMAT  ( ■|P(280,398ir'F5,1“PI340,3981T"F5.r’ ,  $ ) 
TYPE23,T(5),T(6) 

23  FORMAT  ( *IPI400,398ir‘F5.V"P[460.398]r*F5.r’ ,  $ ) 
TYPE24,T(7),T(8) 

24  FORMAT  ( '!P[520,398]r'F5.1'"P[580.398]'rF5.r’ ,  $ ) 
TYPE25,T(9),T(10) 

25  FORMAT  ( 'IP[e40.398]r’F5,1'"P[700,398]T‘*F5.1"" ,  $ ) 
TYPE  30 

30  FORMAT  ( ■!P[350,430irTIME  (SEC.)"',  $ ) 

TYPE 40 

40  FORMAT  ( 'IPfl  30,390]VI,-30]VI-5,1' ,  $ ) 

DO  M,9 
TYPE 50 

50  FORMAT  ( ■|P(+5.]VI,-30]V[-5,r  ,  $ ) 

END  DO 
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TYPE  51 

51  FORMAT  { •|P[70,180]Tl+0.+1 6rOUTPUT“ ,  $ ) 

TYPE53.PSUP 

53  FORMAT  ( MP{530,34)TI+9,+0]"PSUP  -  ’T"F5.2’T'  PSIA"',$) 

TYPE  54,  POUT 

54  FORMAT  ( •!P(530,52]rPOUT  =  "T-F5.2"r  PSIA"‘.$) 
■fYPESS.WBRL 

55  FORMAT  ( ’IPtSSO.TOirWBRL  -  •T-F5.2“r  STD  LIT/MIN"'.$) 
IF(N0UT1.EQ.1)THEN 

57  TYPE  60 

60  FORMAT  ( •!P1290.5]T“  OXYGEN  MOLE  FRACTION  *" .  $ ) 

TYPE  62 

62  FORMAT  ( •!P[95,3831T"0.0'PI95.353rr0.1-Pl95,323]r0.2"^) 
TYPE  64 

64  FORMAT  ( '!Pl95.293]r0.3"P[95.263ir0.4’PI95.233]r0.5"’,$) 
TYPE  66 

66  FORMAT  ( •!P[95,203ir'0.6"PI95.173IT-0.7*PI95.143]r0.8",$) 
TYPE  68 

68  FORMAT  ( MPtGS.1 13rr0.9"P(95.83F'^ 

ELSE  IF(NOUT1.EQ.2)THEN 
TYPE  80 

80  FORMAT  ( ’IPl290.5ir*  INLET  MASS  FLOWRATE  (KG/SEC)  *“.$) 
TYPE 82 

82  FORMAT  ( ■|P[85.383ir-.02"Pt85,3531T“-.0rPI95.3231T"0.0"*,$) 
TYPE  84 

84  FORMAT  ( •|P(95.293]r  .01  "Pl95.263]r.02-P[95.233]r  .03**.$) 
TYPE  86 

86  FORMAT  ( •|PI95.203ir .04*P[95.1 73rr.05’P{95,143]T".06’*,$) 
TYPE  88 

88  FORMAT ( 'IPIOS.1 13F"0rP(9S,33rr.08"’.$) 

ELSE  IF(NOUT1  .EQ.3)  THEN 
TYPE  90 

90  FORMAT  ( '!PI290.5]r*  OUTLET  MASS  FLOWRATE  (KG/SEC)  •".$) 
TYPE  82 
TYPE  84 
TYPE  86 
TYPE  88 
ELSE 
GO  TO  57 
END  IF 
RETURN 
END 
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APPENDIX  C:  ISOBANK  Code  and  Manual 


ISOBANK 


(Databank  for  Adsorption  Data) 


In -Won  Kim 

Department  of  Chemical  Engineering 
University  of  Texas  at  Austin 
Austin,  TX  78712 
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Document 

Adsorption  Data  Bank  ( ISOARMY.FOR  ) 

20  October  1987  In-Won  Kim 
Revised  on  29  January  1988 

*  *  * 

Purpose 

This  code  supplies  adsorption  data  of  pure  and 
multi  component  mixtures.  This  code  can  be  used 
to  design  and  study  adsorption  separation  processes. 

Usage 

RUNISOARMY 

Applications 

1.  To  obtain  parameter  values  of  F-H  VSM 

at  given  temperatures. 

2.  To  obtain  temperature  independent  parameter 

values  of  F-H  VSM. 


3.  To  calculate  amount  adsorbed  of  pure-component 

adsorbates  on  specified  adsorbents  using  F-H  VSM. 


4.  To  calculate  amount  adsorbed  of  pure-component 
adsorbates  on  specified  adsorbents  using 
Langmuir  isotherm  model. 


L. 


5.  To  calculate  pure-component  isotherms  using  F-H  VSM. 


6.  To  calculate  pure-component  isotherms  using 
Langmuir  isotherm  model. 


7.  To  calculate  phase  diagrams  of  binary  component 
mixtures  at  given  temerature  and  pressure  using 
F-H  VSM. 


8.  To  calculate  phase  diagrams  of  ternary  component 
mixtures  at  given  temperature  and  pressure  using 
F-H  VSM  (three  dimensional  plots) 


Possible  Adsorbent-Adsorbate  Pairs  (  As  of  20  October  1987  ) 


c 

Adsorbent 

Adsorbate 

Code 

Ref. 

c 

c 

c 

RS-10 

Oxygen 

1 

-  1 

c 

Nitrogen 

1  -  2 

1 

c 

c 

Zeolite  5A  Oxygen 

2  -  1 

2 

c 

Nitrogen 

2  -  2 

2 

c 

c 

Activated 

Ethane 

3 

-  3 

3 

c 

Carbon 

Propane 

3  -  4 

3 

c 

c 

Nuxit  AL 

Methane 

4  -  5 

4 

c 

Act,  Car. 

Carbon  Dioxide 

4 

-  6 

4 

c 

Acethylene 

4 

-  7 

4 

c 

Ethene 

4-8 

4 

c 

Ethane 

4  -  3 

4 

c 

Propene 

4  -  9 

4 

c 

Propane 

4  -  4 

4 

c 

n-Butane 

4  -  10 

4 

c 

c 

Silica 

Ethene 

5 

-  8 

4 

c 

Propene 

5  -  9 

4 

c 

Propane 

5  -  4 

4 

ooooooooooooooooooooo 


I 

«' 


Zeolite  10X  Oxygen  6-1  4 

Nitrogen  6-2  4 

Carbon  Monxide  6-11  4 


Zeolite  1 3X  Ethene  7  -  8 

Ethane  7-3  4 

i-Butane  7-12  4 

Carbon  Dioxide  7-6  4 


References 


1.  Kim,  I.,  McDonnell  Douglas  Report,  July  15,  1987. 


2.  Miller 


3.  Huang,  C.  C.,  PhD  Dissertation,  UT,  1987. 


4.  Cochran,  T.  W.,  R.  L.  Kabel  and  R.  P.  Danner, 
AlChE  J.,  Vol.  31,  268,  1985. 
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Precision 


Double  precision/Vax 


Comments 

If  you  have  any  questions  about  this  code, 
fee'  free  to  contact  the  author. 

Address  :  In-Won  Kim 

Department  of  Chemical  Engineering 
University  of  Texas  at  Austin 
Austin,  TX  78712 


Library  Required 

IMSL  Library 
CONSYD  Library 


Remarks 


1.  The  adsorption  data  are  calculated  based  on  Flory-Huggins 

Vacancy  Solution  Model  (see  Reference  4) 

2.  The  parameter  values  are  collected  from  the  literatures 
(see  References) 

3.  Some  options  are  not  available  now.  Do  not  choose  these 

options.  Program  will  say  that  sorrylM  not  available  now. 

•  Binary  component  isotherm  plots 
-  Ternary  component  isotherm  plots 

4.  Do  not  choose  these  adsorbent-adsorbate  pairs: 

Code  #  2  -  1 ,  Zeolite  5A  -  Oxygen 
Code  #2-2,  Zeolite  5A  -  Nitrogen 
These  parameter  values  will  be  added  in  the  near  future. 

5.  In  order  to  add  your  own  parameter  values,  edit  block  data; 
Block  data  ANAME  :  Adsorbent  Name 

Block  data  BNAME  :  Adsorbate  Name 
Block  Data  ADATA  :  F-H  VSM  partameters 

6.  For  the  comparison  of  your  own  experiment  data  with 


$ 


* 


o  o  o  o 


nA#>jLfWfv*-'va  r\.M  »■/«.»  w  >.»*«■<■« 


the  estimated  data  from  F-H  VSM,  plese  refer  to  a  modified 
code  "VSMPARA.FOR" 

********<^******»************************************* 
***************** 

C 


121 


U.  Example  run  of  lSOBANK.EXE 


Example  run  shows  how  to  run  menu*driven  code. 


in.  Example  output  of  Pure  component  data 
Langmuir  isotherm  model 

1.  Adsorbent  and  adsorbate  name 

2.  Langmuir  parameter  values  at  given  temperatures 

3.  Table  of  pure  component  isotherms 

4.  Figure  of  isotherms  at  different  temperatures 
Vacancy  solution  model 

1 .  Adsorbent  and  adsorbate  name 

2.  F-H  VSM  parameter  values  at  given  temperatures 

3.  Table  of  pure  component  isotherms 

4.  Figure  of  isotherms  at  different  temperatures 


IV.  Example  output  of  binary  component  data 

1 .  Adsorbent  and  adsorbate  names 

2.  F-H  VSM  parameter  values  at  given  temperatures 

3.  Table  of  composition  data 

4.  Figure  of  phase  diagrams 

5.  Figure  of  total  amount  adsorbed  of  mixture 
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V.  Example  output  of  ternary  component  data 

1 .  Adsorbent  and  adsorbate  names 

2.  F-H  VSM  parameter  values  at  given  temperatures 

3.  Table  of  phase  compositions 

4.  Figure  of  phase  diagrams,  xi  -  X2  -  yi 

5.  Figure  of  phase  diagrams,  xi  -  X2  -  y2 

6.  Figure  of  total  amount  adsorbed  w.r.t.  xi  and  X2 
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VI.  ListofISOARMY.FOR 


oo*  ooooooo 


c 

PROGRAMISOARMY 

r*************** 


IN-WON  KIM 
20  OCTOBER  1987 
REVISED  ON  7  FEBUARY  1988 

**************************************************** 


C 

C  THIS  PROGRAM  SUPPLIES  ADSORPTION  DATA  TO  THE  USERS 

C  TO  DESIGN  AND  STUDY  ADSORPTION  SEPARATION  PROCESSES. 

C  IN  THIS  PROGRAM  PLOTTING  ROUTINES  ARE  DELETED.  PLEASE 

C  REFERTOORIGINALPROGRAM"ISOBANK.FOR" 

C 

C 

C  DETAILS  ARE  IN  FILE "  ISOBANK.TXT  " 

C 

C 

C  OPTION  DESCRIPTION 
C  .  . 

c 

C  1  PU  RE-COM  PON  ET  SYSTEM 

C 

C  2  BINARY  COMPONENT  SYSTEM 

C 

C  3  TERNARY  COMPONENT  SYSTEM 

C 

C  COMMOrsBLOCKS  :NONE 
C 

C  REQURIED  ROUTINES :  PURESYS,  BINASYS,  TERNSYS 

C 

Q**************************************************** 

*#A********** 


CHARACTER‘1  YES,  NO 
INTEGERNOPT 
DATA  YES,  NO  /’Y’,'NV 


I 

I 


o  o  o  o 


OPEN  (UNIT-6.  FILE-'ISOARMY.OUr,  STATUS-'UNKNOWN') 
CALL  HEADER  (6,  MSOBANK.OUT) 


WRITE(MOO) 
READ(M01)  NO 
IF(NO.EQ.'N')  STOP 

1  CONTINUE 
WRITE(M02) 

READ(*.*)  NOPT 
GO  TO  (  2,  3,  4  )  NOPT 

2  CALLPURESYS 
G0T05 

3  CALL  BINASYS 
GO  TO  5 

4  CALLTERNSYS 


C 

5  CONTINUE 
WRITE(M03) 
READ(M01)  YES 
IF(YES.EQ.  T)G0T01 
C 

CLOSE  (  UNIT=6 ) 

C 

STOP 

C 


100 


$ 


FORMAT(/////T5, 'WELCOME  TO’/// 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


T5, 
T5.' 
T5, 
T5, 


T5,' 

I*  it  ^  it  If 


I  *Alk  ***#  **  itiiitit  Itiiit  irlt 

«  ii  it  it  Hit  iitj 

*  *  *  *  ****  *  *  ***  ****  *  *  *  *  * 

tHiiitir  H  it  H  H  it  it  it  it  it  H  H  it  H  HHt 

J 

f*  «  ***  ****  «*  *  *  «  *  **  it 


/// 


litilH  Hit  Hiriiiiir  Hit  HHH  mH  H  H  H 

i 

tH  H  H  H  H  HHHHHHHHHH  Hi 


I 


T5, 

T5, 

tit  H  H  H  H  H  H  HHHH  H  H  H  H  H  H  H  tj 

I*  H  HHHH  H  HHHH  H  H  HHHH  H  HH  HH  H  I 


7 


T5, 

T5.’* 

HU 


/ 


HH  H  H 


H  H  HHH  HHH  H  H 


’/ 
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o o o o o o o o o o o o o o o o o o o  *oo  ooo 


$  T5;D0  you  want  to  continue?  [  Y  or  N  ]') 

101  FORMAT(AI) 

102  FORMAT(/////T5.'OPTIONS  :V// 

$  T5;i .  PURE-COMPONENT  SYSTEM'/// 

$  T5,'2.  BINARY  COMPONENT  SYSTEM'/// 

$  T5,'3.  TERNARY  COMPONENT  SYSTEM'/// 

$  TS.'ENTER  YOUR  CHOICE  ( 1 . 2  OR  3  ]') 

1 03  FORMAT(////T5,'DO  YOU  WANT  TO  START  AGAIN?  [  Y  OR  N  ]') 
C 

BO 


SUBROUTINEPURESYS 

*«*******4***«***********************«******1^******ifr* 

r*************** 


SUBROUTINEPURESYS  19  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  WRITE  OPTIONS  ON  THE  SCREEN  FOR 
PURE-COMPONENTSYTEM 

OPTION  DESCRIPTION 


1  DATA  FOR  AMOUNT  OF  ADSORPTION  AT 
GIVEN  TEMPERATURE  AND  PRESSURE 

2  PURE-COMPONENT  ISOTHERM  PLOTS 

COMMOhBLOCKS  ;NONE 

REQURIED  ROUTINES  :PUREDAT.PUTMPLT 


C 

INTEGERNOPT 

C 

WRITE(MOO) 
READ(*,*)  NOPT 
C 
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G0T0(1,2)N0PT 

1  CALL  PUREDAT 
RETURN 

C 

2  CALLPUTMPLT 
RETURN 

C 

100  FORMAT(////T5/OPTIONS  ;7/// 

$  TS.’I .  DATA  FOR  AMOUNT  OF  ADSORPTION  AT/ 
$  T5,'  GIVEN  TEMPERATURE  AND  PRESSURE'/// 

$  T5.'2.  PURE-COMPONENT  ISOTHERM  PLOT//// 

$  TS.'ENTER  YOUR  CHOICE  [  1  OR  2  ]') 

C 

E^D 


SUBROUTINEPUREDAT 


#****##**##**** 


SUBROUTINEPUREDAT  4FEBUARY1988  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  CALCULATE  PURE-COMPONENT 
ADSORPTION  DATA  WITH  50  MAXIMUM  DATA  POINTS 

PARAM  ETER  DESCRIPTION : 

NBENT  :  ADSORBENT  NO. 

NBATE  :  ADSORBATE  NO. 

TEMP  :  TEMPERATURE  [K] 

PRESS  :  PRESSURE  [KPA] 

ADSAMT  :  AMOUNT  ADSORBED  [KMOUKG] 

NDATA  :  NO.  OF  DATA  POINT 

lOPT  :  IF  IOPT-1 ,  USING  VACANCY  SOLUTION  MODEL 
IF  IOPT-2,  USING  LANGMUIR  MODEL 

COMMONBLOCKS  ;NONE 

REQURIED  ROUTINES :  PURPAIR,  PURECAL 
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c 

DOUBLE  PRECISION  TEMP(50),  PRESS(50),  ADSAMT(50), 

$  DUM1.DUM2 

INTEGER  NBENT,  NBATE,  NDATA,  lOPT 

. TOCHOOSEISOTHERMMODEL 

WRITE(M02) 

READ(*.*)  lOPT 

CALL  PURPAIR  (  NBENT,  NBATE ) 

WRITER,*)  'HOW  MANY  POINTS  DO  YOU  WANT  TO  CALCULATE?' 
WRITEf,*) '  MAXIMUM  50  ADSORPTION  DATA’ 

READr,*)  NDATA 

DO  10  I-1  .NDATA 
WRITER  ,’(/)•) 

WRITER,*)  ’ENTER  PRESSURE-TEMPERATURE  PAIR’, I 
WRITE(*,‘)  ’  [  KPA,  K  )’ 

READO,”)  PRESS(I),  TEMP(I) 

10  CONTINUE 

. TOGENERATEADSORPTIONAMOUNTDATA 


DO  20  1-1 , NDATA 
DUM1  -  TEMP(I) 

DUM2  -  PRESS(I) 

CALL  PURECAL  (NBENT,  NBATE,  DUM1,  DUM2,  ADSAMT,  lOPT) 
20  CONTINUE 
C 

WRITE(MOO) 

DO  30  1-1  .NDATA 

WRITE(MOI)  PRESS(I),TEMP(I),  ADSAMT(I) 

30  CONTINUE 
C 

RETURN 

C 

100  FORMAT(///) 

101  FORMAT(/// 

$  T5, TEMPERATURE’,  T20,  'PRESSURE',  T35, 
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$  'AMOUNT  ADSORBED’/ 

$  T5,’  [  K  ]'.  T20,  '  (  KPA  ]'.  T35, '  [KMOL/KG]’/ 

$  T5,  1 1  (1 H-),  T20.  1 1  (1 H-).  T35,  1 3(1  H-)/ 

$  T5,  FI  0.3,  T20,  FI  0.3,  T35,  El 0.3/) 

102  FORMAT(///T5.'OPTIONS:'/// 

$  T5,'1.  USING  VACANCY  SOLUTION  MODEL'/// 

$  T5,’2.  USING  LANGMUIR  MODEL’/// 

$  T5,'  ENTER  YOUR  CHOICE  [  1  OR  2  ]’///) 

BVD 

C 

C 

C 

SUBROUTINEPUTMPLT 

C 

C . **..*<*********.**.*..********* 


C 

c 

C 

c 
c 
c 

C 

c 
c 
c 
c 
c 
c 

C 

c 
c 

C 
C 

c 
c 
c 
c 
c 

c**‘ 


SUBROUTINE  PUTMPLT  19  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  PLOT  PURE-COMPONENT  ISOTHERMS 
TO  PLOT  MAXIMUM  5  PLOTS  SIMULTANEOUSLY. 

PARAMETER  DESCRIPTION : 

NBENT  :  ADSORBENT  NO. 

NBATE  :  ADSORBATE  NO. 

TEMP  :  TEMPERATURE  [K] 

PRESS  :  PRESSURE  [KPA] 

ADSAMT  :  AMOUNT  ADSORBED  [KMOL/KG] 

PMAX  :  MAXIMUM  PRESSURE  [KPA] 

PMIN  :  MINIMUM  PRESSURE  [KPA] 

NPOINT  :  NO.  OF  DATA  POINT 

lOPT  :  IF  IOPT-1 ,  USING  VACANCY  SOLUTION  MODEL 

IF  IOPT-2,  USING  LANGMUIR  MODEL 


COMMONBLOCKS 


:NONE 


REQURIED  ROUTINES :  PURPAIR,  PURETHM,  MAPPLT,  PURETM.PDL 


************* 


DOUBLE  PRECISION  TEMP(5),  PRESS{51),  ADSAMT(5,51), 


138 


ooo  o  o  o  opo  opo 


%  PMIN,  PMAX,  DUM2(51) 

INTEGER  NBENT,  NBATE,  NPOINT,  lOPT 


.TOCHCX3SEISOTHERMMODEL 

WRITE(*,103) 

READ(*.*)  lOPT 


TO  CHOOSE  ADSORBENT-ADSORBATE  PAIR  FROM  THE  DATABANK 
CALL  PURPAIR  (  NBENT.  NBATE ) 

WRITER,*)  'HOW  MANY  ISOTHERMS  DO  YOU  WANT  TO  PLOTr 
WRITEr,*) '  MAXIMUM  5  ISOTHERMS  IN  ONE  PLOT 
READ(‘,*)  NTEMP 


DO10I-1.NTEMP 

WRITEC.'(/)') 

WRITER,*)  TEMPERATURE  IN  DEGREE  K.M 
READ(*,*)  TEMP(I) 

10  CONTINUE 
WRITE(*.'(/)') 

WRITER,*)  'PRESSURE  RANGE  IN  KPA?’ 

WRITER, *) '  MIN  TO  MAX  0.g.[  0.  100  ]' 

READ(*,*)  PMIN, PMAX 

WRITER, ’(/)') 

WRITEC,*)  'HOW  MANY  DATA  POINTS  DO  YOU  WANT  TO  PLOT? 
WRITEC,*)'  MAXIMUM  50  POINTS  [50]' 

READC,*)  NPOINT 

. TOGENERATEPRESSURE-ADSORPTIONAMOUNTDATA 


DO  30  1-1, NTEMP 

WRITE(6,100)  I,  TEMPO) 

DUM1  -  TEMP(I) 

CALL  PURETHM  (NBENT,  NBATE,  DUM1,  PMIN,  PMAX, 
$  NPOINT,  PRESS,  DUM2,  lOPT) 

DO  20  J-1,NPOINT+1 

ADSAMT(I,J)  -  DUM2(J)T000. 

20  CONTINUE 
30  CONTINUE 


1*7* 


i>:i 


o o o o o o o o o o o o o o o o o o  o  oo  op 


. TOUSECONSYDPLOTROUTINES 

WRITE(6,101) 

CALL  ASSIGN(1;PURETM.DAT) 

DO  40  l-1,NPOINT+1 

WR1TE(1)  PRESS(I),(ADSAMT(J,I),J-1  .NTEMP) 
WRITE(6,102)  PRESS(I),(ADSAMT(J,I)/1000.,J-1 ,5) 

40  CONTINUE 
CALLCLOSE(I) 

GO  TO  (  50,  60.  70,  80,  90)  NTEMP 

50  CALL  MAPPLT  ('PURETMI') 

RETURN 

60  CALL  MAPPLT  ('PURETM2’) 

RETURN 

70  CALL  MAPPLT  ('PURETM3') 

RETURN 

80  CALL  MAPPLT  {'PURETM4’) 

RETURN 

90  CALL  MAPPLT  ('PURETM5') 

RETURN 

100  FORMAT(/ 

$  T5,’TEMPERATUREM3,2X,TS’,F10.3,’[  K  ]V 
$  ) 

101  FORMAT(// 

$  T5, 'PURE-COMPONENT  ISOTHERM  DATA'// 

$  T5, 'PRESS.  VS.  AMT.  ADSORBED'// 

$  T5, 'PRESS.  IN  KPA,  AMOUNT  ADSORBED  IN  KMOL/KG'// 

$  T5, 'PRESSURE', T1 5,'  TEMP.  1',T25,'  TEMP.  2', 

$  T35,'  TEMP.  3',T45,'  TEMP.  4',T55,'  TEMP.  5'// 

$  ) 

102  FORMAT(T5,6E10.3/) 

103  FORMAT(///T5,'OPTIONS;'/// 

$  T5,'1.  USING  VACANCY  SOLUTION  MODEL'/// 

$  T5,'2.  USING  LANGMUIR  MODEL'/// 
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OOO  OO  *0000000000000000  *00  ooo 


c 


$ 


T5,'  ENTER  YOUR  CHOICE  [  1  OR  2  ]V//) 


BO 


SUBROUTINE  PURPAIR  ( NBENT,  NBATE ) 
INTEGER  NBENT.  NBATE 


*************** 


SUBROUTINE  PURPAIR  19  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  CHOOSE  ADSORBENT  -ADSORBATE  PAIR 
FROM  THE  DATA  BANK. 

PARAMETER  DESCRIPTION : 

NBENT  :  ADSORBENT  NO.  (SEE  BLOCK  DATA  ANAME) 

NBATE  ;  ADSORBATE  NO.  (SEE  BLOCK  DATA  BNAME) 

COMMO^LOCKS  :BATNAME,BETNAME 

ROUTINEREQUIRED'.NAME 


CHARACTER*25  SORBENT(20),  SORBATE(20) 
COMMON  /BATNAME/  SORBATE 
COMMON/BETNAME/SORBENT 


TO  DISPLAY  ADSORBENT-ADSORBATE  PAIR  ON  THE  SCREEN 


CALL  NAME 
C 

WRITE(*.*)  'ENTER  ADSORBENT-ADSORBATE  PAIR* 
WRITE(*,*) '  e.g.  RS-10  AND  OXYGEN  [1,1]' 
READ(*,*)  NBENT,  NBATE 
C 

WRITE(*,100)  SORBENT(NBENT).  SORBATE(NBATE) 
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RETURN 


C 


100  FORMAT(/// 

$  T5,’YOUR  CHOICES  ARE7// 

$  TS.’ADSORBENT  :  ',A25// 

$  TS/ADSORBATE  :  ‘.A25// 

$  ) 

BO 


SUBROUTINENAME 


C 

C  SUBROUTINE  NAME  19  OCTOBER  1 987  IN-WON  KIM 
C 

C  THIS  SUBROUTINE  IS  TO  WRITE  A  POSSIBLE  PAIR  OD 
ADSORBENT- 

C  ADSORBATEONTHESCREEN. 

C 

C  PARAMETER  DESCRIPTION : 

C 

C  SORBENT  :  NAM  EOF  ADSORBENT 
C  SORBATE  ;  NAME  OF  ADSORBATE 
C 

C  COMMONBLOCKS  :BATNAME,  BETNAME 

C 

C  REQURIEDROUTINES:NONE 
C 

C‘*** . . . . . . 


c 

CHARACTER*25  SORBENT(20),  SORBATE(20) 
CHARACTERM  NO 
COMMON/BETNAM  E/SORBENT 
COMMON  /BATNAME/  SORBATE 
DATA  NO/’NV 
C 

WRITE(*,100) 


WRITE(MOI)  SORBENT{1),  SORBATE(I),  SORBATE(2) 
WRITE(MOI)  SORBENT(2),  SORBATE(1),  SORBATE(2) 
WRITE(MOI)  SORBENT(3).  SORBATE(3),  SORBATE(4) 
WRITE(MOI)  SORBENT(4),  SORBATE(5),  SORBATE(6), 
SORBATE{7), 

$  SORBATE(8),  SORBATE(3),  SORBATE(9), 

$  SORBATE(4).  SOR3ATE(10) 

WRITE(*,*)  ‘DO  YOU  WANT  TO  CONTINUE  ?  [  Y  OR  N  ]' 
READ(*;(A1)')  NO 

if(no.eq;n’)return 

WRITE(MOI)  SORBENT(5).  SORBATE(8),  SORBATE(9), 
SORBATE(4) 

WRITE(MOI)  SORBENT(6),  SORBATE(1),  SORBATE(2), 
SORBATE(11) 

WRITE(MOI)  SORBENT(7),  SORBATE(8),  SORBATE(3), 
SORBATE(12), 

$  SORBATE(6) 

C 

RETURN 

C 

100  FORMAT(///T11 /ADSORBENT',  T36, 'ADSORBATE'// 

$  T5.20(1H-),  T30,  20(1H-)) 

101  FORMAT(//T5.  A25.  T30,  A25/.  (T30.  A25)) 

C 

BO 

C 

C 

C 

SUBROUTINE  PURETHM  (NBENT,  NBATE,  TEMP,  PMIN,  PMAX, 

$  NPOINT,  PRES,  AMOUNT,  lOPT) 

DOUBLE  PRECISION  TEMP,  PMIN,  PMAX,  PRES(51 ),  AMOUNT{51 ) 
INTEGER  NBENT,  NBATE,  NPOINT,  lOPT 

C 

Q*********A****««***«***********«*4****************1^** 

**«*****4*****44r4 

C 

C  SUBROUTINE  PURETHM  19  OCTOBER  1987  IN-WON  KIM 
C 

C  THIS  SUBROUTINE  IS  TO  CALCULATE  PURE-COMPONENT 
C  ISOTHERM. 

C 

C  PARAMETER  DESCRIPTION  : 


oooo  oooo 


C  NBENT  :  ADSORBENT  NO. 

C  NBATE  :  ADSORBATE  NO. 

C  TEMP  :  TEMPERATURE  [K] 

C  PMIN  :  MINIMUM  PRESSURE  [KPA] 

C  PMAX  ;  MAXIMUM  PRESSURE  [KPA] 

C  PAR(1)  ;  PRESSURE.  PRES  [KPA] 

C  PAR(2)  :  HENRVS  LAW  CONSTANT,  B  [KMOL/KG/KPA] 

C  PAR(3)  LIMITING  AMOUNT  ADSORBED,  NI[KMOL/KG] 

C  PAR(4)  :  NONIDEALITY  PARAMETER,  ALPHA  [-] 

C  X(1 )  :  N1 .  MOLES  OF  COMPONENT  1  ADSORBED 
C  [KMOL/KG] 

C  lOPT  :  IF  IOPT-1 .  USING  VACANCY  SOLUTION  MODEL 
C  IF  IOPT-2,  USING  LANGMUIR  MODEL 

C 

C  COMMONBLOCKS  :NONE 
C 

C  REQURIEDROUTINES:ZSPOW,PUREFCN 
C 

Q************«*****«*****************«**************** 


DOUBLE  PRECISION  X(1).  WK(10),  FNORM,  PAR(4),  DELP, 
LANGPAR 

INTEGER  N,  NSIQ,  ITMAX,  lER 

EXTERNALPUREFCN 

TO  CALCULATE  PARAMETER  VALUES  FOR  VSM  FORGIVEN 
ADSORBATEANDADSORBENT 

CALL  PARACAL  (NBENT.  NBATE,  TEMP,  PAR(2),PAR(3),  PAR(4)) 
IF(IOPT,EQ.2)THEN 
PAR{4)  -  0.0 

LANGPAR  -  PAR(2)/PAR(3) 

WRITE(6,101)  LANGPAR 
ENDIF 

•TOCALCULATE  PRESSURE-AMOUNT  ADSORBED  DATA 
.USINGZSPOWNONLINEARALGEBRAICEQUATIONSOLVER 

N  -  1 
NSIG  «  8 
ITMAX  -300 

DELP  -  (PMAX-PMIN)/DBLE(NPOINT) 
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PAR(1)  -  PMIN 
X(1)  »  1.0D-4 
DO10l-1,NPOINT+1 

CALLZSPOW(PUREFCN.  NSIG,  N,  UMAX,  PAR, 

$  X,  FNORM,  WK,  lER) 

WRITE(MOO)  I,  lER,  FNORM 
AMOUNT(I)  -  X(1) 

PRES(I)  -PAR(1) 

PAR(1)  -  PAR(1)  +  DELP 
10  CONTINUE 
C 

RETURN 

C 

100  FORMAT( 

$  (T5.I3,2X,'IER  &  FNORM’, 13, 2X.E1 1  Af) 

$  ) 

101  FORMAT(/// 

$  T5,'  PARAMETER  FOR  LANGMUIR  ISOTHERM,  B  [  1/KPA  ]  ’, 

$  El  1.4///) 

C 

0O 


SUBROUTINE  PURECAL  ( NBENT,  NBATE,  TEMP,  PRES,  AMOUNT, 
$  lOPT ) 

DOUBLE  PRECISIONTEMP,  PRES,  AMOUNT 
INTEGER  NBENT,  NBATE,  lOPT 


SUBROUTINE  PURETHM  19  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  CALCULATE  PURE-COMPONENT 
ADSORPTION  DATA. 

PARAMETER  DESCRIPTION  : 

NBENT  :  ADSORBENT  NO. 

NBATE  :  ADSORBATE  NO. 

TEMP  :  TEMPERATURE  [K] 
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PAR(1)  :  PRESSURE.  PRES  [KPA] 

PAR(2)  ;  HENRY'S  LAW  CONSTANT,  B  [KMOL/KG/KPA] 
PAR(3)  :  LIMITING  AMOUNT  ADSORBED,  Nl  [KMOUKO] 
PAR(4)  :  NONIDEALITY  PARAMETER,  ALPHA  [-] 

X(1 )  :  Nl ,  MOLES  OF  COMPONENT  1  ADSORBED 

[KMOL/KG] 

lOPT  :  IF  IOPT-1 ,  USING  VACANCY  SOLUTION  MODEL 
IF  IOPT=2,  USING  LANGMUIR  MODEL 

COMMONBLOCKS  :NONE 

REQURIEDROUTINES:ZSPOW.PUREFCN 


DOUBLE  PRECISION  X(1),  WK(10).  FNORM,  PAR(4),  LANGPAR 
INTEGER  N,  NSIG,  ITMAX,  lER 

EXTERNALPUREFCN 

..  ..TO  CALCURATE  PARAMETER  VALUES  FOR  VSM  FOR  GIVEN 
....ADSORBATEANDADSORBENT 

CALL  PARACAL  (NBENT,  NBATE,  TEMP,  PAR(2),PAR(3),  PAR(4)) 
IF(IOPT.EQ.2)THEN 
PAR(4)  =  0.0 

LANGPAR  -  PAR(2)/PAR(3) 

WRITE(6,101)  LANGPAR 
ENDIF 

. TOCALCULATE  PRESSURE-AMOUNT  ADSORBED  DATA 

. USINGZSPOWNONLINEARALGEBRAICEQUATIONSOLVER 

N  -  1 
NSIG  »  8 
ITMAX  =300 
PAR(1)  oPRES 
X(1)  =  1.0D-4 

CALLZSPOW  (  PUREFCN,  NSIG,  N,  ITMAX,  PAR, 

$  X,  FNORM,  WK,  lER  ) 

AMOUNT  =  X(1) 


WRITE(MOO)  lER,  FNORM 
C 

RETURN 

C 

100  FORMAT{// 

$  T5,’  lER  AND  FNORM  IN  PURECALM3,2X,E1 1 .4 

$  ) 

101  FORMAT(/// 

$  TS;  PARAMETER  FOR  LANGMUIR  ISOTHERM.  B  [  1/KPA  ] 
$  El  1.4///) 

C 

BSD 


C 

C 

C 

SUBROUTINE  PUREFCN  ( X.  F,  N,  PAR ) 
DOUBLE  PRECISION  X(N),  F{N),  PAR(4) 
INTEGER  N 


C 

h  it 


**************************** 


C 

C  THIS  SUBROUTINE  IS  TO  CALCULATE  THE  AMOUNT  OF 

ADSORPTION 

C  FROM  GIVEN  PRESSURES  USING  PU RE-COM PONENTVSM  MODEL. 

C 

C  PARAMETER  DESCRI POTION  : 

C 

C  N1  :  AMOUNT  ADSORBED  AT  GIVEN  TEEMPERATURE 

C  AND  PRESSURE  [KMOUKG] 

C  THETA  ;  SURFACE  COVERAGE  [-] 

C  PAR(1) :  PRESSURE,  PRES  [KPA] 

C  PAR(2)  ;  HENRY'S  LAW  CONSTANT.  B  [KMOL/KG/KPA] 

C  PAR(3) :  LIMITING  AMOUNT  ADSORBED,  Nl  [KMOL/KG] 

C  PAR(4)  :  NONIDEALITY  PARAMETER,  ALPHA  [-] 


COMMONBLOCKS 


;NONE 


C  REQURIEDROUTINES:NONE 
C 

Q***************************************************** 

***************** 
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DOUBLE  PRECISION  N1 .  THETA,  DUM1 .  DUM2 
C 

N1  -  X{1) 

THETA  =  N1/PAR(3) 

DUM1  =  PAR(3)/PAR(2)*THETA/(1  .-THETA) 

DUM2  -  EXP(PAR(4)*PAR(4)*THETA/(1.+PAR(4)*THETA)) 
F(1)  «  PAR(1)  -DUMrDUM2 
C 

RETURN 

BO 


% 

& 


SUBROUTINE  PARACAL  { NBENT,  NBATE,  TEMP,  B,  Nl,  ALPHA ) 
DOUBLE  PRECISION  TEMP,  B,  Nl,  ALPHA 
INTEGER  NBENT,  NBATE 


SUBROUTINE  PARACAL  19  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  CALCULATE  VSM  PARAMETER 
VALUES  FROM  TEMPERATURE  INDEPENDENT  VALUES. 

PARAMETER  DESCRIPTION  : 

NBATE  :  ADSORBATE  NO. 

NBENT  :  ADSORBENT  NO. 

TEMP  ;  TEMPERATURE  [K] 

B  :  HENRY'S  LAW  CONSTANT  [kmol/kg/kpa] 

Nl  :  LIMITING  AMOUNT  ADSORBED  [kmol/kg] 

ALPHA  :  PARAMETER  DESCRIBING  NONIDEALITY  [-] 

R  :  GAS  CONSTANT  [J/KMOliK] 

PARA(I,J,1 ) :  TEMP'^.RATURE  INDEPENDENT  CONSTANT 
FOR  HERY'S  LAW  CONSTANT, 

Bio  [kmol/kg/kpa] 

PARA(I,J,2)  ;  TEMPERATURE  INDEPENDENT  CONSTANT 
FOR  LIMITING  AMOUNT  ADSORBED, 
nii  [kmol/kg] 

PARA(I,J,3) :  TEMPERATURE  INDEPENDENT  CONSTANT, 
CHARACTERISING  EACH  ADSORBATE- 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r\ 

c 

c 

c 

c 


ADSORBENT  SYSTEM 
ri.  [  K  ] 

PARA(I,J,4)  :  ISOSTERIC  HEAT  OF  ADSORPTION, 
q.  [J/kmol] 

PARA(I.J.5) :  TEMPERATURE  INDEPENDENT  CONSTANT 
FOR  PROPORTIONALITY, 
m,  [kg/kmol] 

I  ;  ADSORBENT  (SEE  BLOCK  DATA  ANAME) 

J  :  ADSORBATE  (SEE  BLOCK  DATA  BNAME) 
COMMONBLOCKS  ;  PARAMET,  BATNAME,  BETNAME 
REQURIEDROUTINES:NONE 


CHARACTER*25  SORBENT(20),  SORBATE(20) 
COMMON  /BATNAME/ SORBATE 
COMMON/BETNAM  E/SORBENT 
DOUBLE  PRECISION  PARA(20,20,5),  R 
COMMON  /PARAMET/  PARA 


I  =  NBENT 
J  -  NBATE 
R  -  8314. 

B  -  PARA(I,J,1)*EXP(-PARA(I,J,4)/R/TEMP) 

Nl  -  PARA(I,J,2)*EXP(PARA(I,J,3)/TEMP) 

ALPHA  -  PARA(I.J,5rNM. 

C 

WRITE(6,100)  SORBENT  (NBENT),  SORBATE  (NBATE) 
WRITE(6,101)  TEMP,  B,  Nl.  ALPHA 


RETURN 

100  FORMAT(///// 

$  TS/SORBENT  NAME  :  ’,A25// 

$  T5,'SORBATE  NAME  ;  ’,A25//) 

101  FORMAT( 

$  T5, TEMPERATURE  [K]  :’,E10.3// 

$  T5, 'HENRY  LAW  CONSTANT  [KMOL/KG/KPA]  :',E10.3// 

$  T5;LIMITING  AMT.  adsorbed  [KMOUKG]  :',E10.3// 
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jvuwvwvwrDwvwjrvR 


TS.’NONIDEALITY  PARAMETER  [-]  :’.E10.3// 


SUBROUTINEBINASYS 


SUBROUTINE  BINAYS  19  OCTOBER  1987  IN-WON  KIM 
This  subroutine  is  to  write  option  on  the  screen 
for  binary  component  system. 


OPTION 


DESCRIPTION 


1  Phase  Diagram  between  gas  phase  mole 

fraction  and  gas  phase  mole  fraction 

2  Binary  component  isotherm  plots 

COMMOhBLOCKS  MONE 

REQUROED  ROUTINES :  PHASDIG,  BINAISO 
***************************************************** 


INTEGERNOPT 


WRITE(MOO) 
READ(*,*)  NOPT 
GO  TO  ( 1 , 2 )  NOPT 

1  CALL  PHASDIG 
RETURN 

2  CALL  BINAISO 
RETURN 


FORMAT  (///T5, 'OPTIONS  :'//// 


o  o  o 


$  T5;1 .  PHASE  DIAGRAM  BETWEEN  GAS  PHASE  M0LE7 

$  TS;  FRACTION  AND  SOLID  PHASE  MOLE  FRACTION’/// 
$  T5.’2.  BINARY  COMPONENT  ISOTHERM  PLOTS'/ 

$  TS;  --NOT  AVAILABLE  NOW-’/// 

$  TS.’ENTER  YOUR  CHOICE  [  1  OR  2  ]’) 

C 

0O 


SUBROUTINE  BINAISO 
C 


» 


THIS  SUBROUTINE  IS  TO  CALCULATE  BINARY-COMPONENT 
ISOTHERMS 


[4 

(' 

4 


k 

4 


c 

WRITE(MOO) 

C 

RETURN 

C 

100  FORMAT(/// 

$  T5;SORRY!!l!  NOT  AVAILABLE  NOW!!'// 

$  ) 

C 

BSD 

C 

C 

C 

SUBROUTINEPHASDIG 

C 


C 

C  SUBROUTINE  PHASDIG  21  OCTOBER  1987  IN-WON  KIM 
C 

C  THIS  SUBROUTINE  IS  TO  PLOT  PHASEDIGGRAM  OF 
C  BINARY  COMPONENTSYSTEM 
C 


OOO  O  O  O  opo  opo  opo  0*000000000000 


PARAMETER  DESCRIPTION ; 


NBENT  :  ADSORBENT  NO. 

NBATE  ;  ADSORBATE  NO. 

TEMP  :  TEMPERATURE  [K] 

PRESS  ;  PRESSURE  [KPA] 

COMMONBLOCKS  :NONE 

REQURIED  ROUTINES :  BINPAIR.  BINACAL 


*************** 


DOUBLEPRECISIONTEMP, PRESS 
INTEGER  NBENT,  NBATE(2) 

. TOCHOOSEADSORBENT-ADSORBATEPAIRS 

CALL  BINPAIR  (  NBENT.  NBATE ) 

. TOINPUTPRESSUREANDTEMPERATUREDATA 

WRITER,*)  'ENTER  PRESSURE-TEMPERATURE  PAIR' 
WRITE(*,*) '  (  KPA,  K  ]’ 

READ(*,*)  PRESS,  TEMP 

. TOGEN  ERATE  SOLID  PHASE  MOLE  FRACTIONS  FROM  X1 

CALL  BINACAL  (NBENT,  NBATE,  TEMP,  PRESS) 
RETURN 

100  FORMAT(///) 


BSD 


SUBROUTINE  BINPAIR  ( NBENT,  NBATE ) 
INTEGER  NBENT,  NBATE(2) 
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OOO  O  *0000000000000000 


c 


SUBROUTINE  PURPAIR  21  OCTOBER  1 987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  CHOOSE  ADSORBENT  -ADSORBATE  PAIR 
FROM  THE  DATA  BANK. 

PARAMETER  DESCRIPTION ; 

NBENT  :  ADSORBENT  NO.  (SEE  BLOCK  DATA  ANAME) 

NBATE  :  ADSORBATE  NO.  (SEE  BLOCK  DATA  BNAME) 

COMMONBLOCKS  :  BATNAME,  BETNAME 

ROUTINEREQUIREDiNAME 


**«*««**««**** 


CHARACTER*25  SORBENT(20),  SORBATE(20) 

COMMON  /BATNAME/  SORBATE 
COMMON/BETNAME/SORBENT 

TO  DISPLAY  ADSORBENT-ADSORBATE  PAIR  ON  THE  SCREEN 

CALL  NAME 
C 

WRITE(*,‘)  ’ENTER  ADSORBENT  NUMBER  [  1  ]’ 

READ(*,*)  NBENT 

WRITE(*,*)  ‘ENTER  ADSORBATE  1  [  1  ]' 

READ(*,*)  NBATE(I) 

WRITER,*)  ‘ENTER  ADSORBATE  2  [  1  ]’ 

READ(*,*)  NBATE(2) 

C 

WRITE(MOO)  SORBENT(NBENT),  S0RBATE(NBATE(1)), 

$  S0RBATE(NBATE(2)) 

C 

RETURN 

C 

100  FORMAT(/// 

$  TS.'YOUR  CHOICES  ARE‘/// 

$  T8, ‘ADSORBENT  :  •,A25// 
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$  T8;ADS0RBATE  1  :  ’,A25// 

$  TS/ADSORBATE  2  :  ‘.AaS// 

$  ) 

C 

BD 


SUBROUTINE  BINACAL  ( NBENT,  NBATE,  TEMP,  PRES ) 

tXXJBLEPRECISIONTEMP.PRES 

INTEGER  NBENT.  NBATE(2) 


SUBROUTINE  BINACAL  21  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  CALCULATE  BINARY-COMPONENT 
ADSORPTION  DATA. 

PARAMETER  DESCRIPTION  ; 

NBENT  ;  ADSORBENT  NO. 

NBATE  :  ADSORBATE  NO. 

TEMP  :  TEMPERATURE  [K] 

NM  ;  TOTAL  MOLES  ADSORBED  MIXTURE  [KMOL/KG] 

PAR(1 )  :  XI ,  MOLE  FRACTION  OF  COMPONENT  1 

IN  ADSORBED  MIXTURE 

PAR(2)  :  B1 ,  HENRY'S  CONSTANT  OF  COMPONENT  1 
[KMOUKG/KPA] 

PAR(3)  :  B2,  HENRY'S  CONSTANT  OF  COMPONENT  2 
[KMOUKG/KPAl 

PAR(4)  :  Nil ,  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  1  [KMOUKG] 

PAR{5)  :  NI2,  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  2  [KMOL/KG] 

PAR(6)  :  ALPHA1 ,  NONIDEALITY  PARAMETER  OF  COMPONENT 
[-1 

PAR{7)  :  ALPHA2,  NONIDEALITY  PARAMETER  OF  COMPONENT 
[•] 

PAR(8)  :  R1 S,  ACTIVITY  COEFFICIENT  OF  COMPONENT  1 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

CHARACTERS  NO 

DOUBLE  PRECISION  X(1),  WK(10),  FNORM,  PAR(12),  NM(21), 
$  X1(21),  X2(21),  Y1(21),  Y2(21), 

$  DUM1,DUM2,  DUM3 

INTEGER  N.  NSIG,  ITMAX,  lER 
EXTERNALTLBIFCN 
DATA  NO  /'NV 
C 

C . TO  CALCURATE  PARAMETER  VALUES  FOR  VSM  FORGIVEN 

C . ADSORBATEANDADSORBENT 

C 

CALL  PARACAL  (NBENT,  NBATE(I),  TEMP,  PAR{2),PAR(4), 
PAR(6)) 

CALL  PARACAL  (NBENT,  NBATE(2),  TEMP,  PAR{3),PAR(6), 
PAR(7)) 

C 

C TO  CALCULATE  MOLE  FRACTION  OF  SOLID  PHASE 

C . USINGZSPOWNONLINEARALGEBRAICEQUATIONSOLVER 

C 

N  -  1 
NSIG  -  8 
ITMAX  -300 
PAR(12)  -  PRES 
PAR{1)  -  0.0 
X(1)  -  3.0D-3 
C 


IN  SURFACE  PHASE 

PAR(9)  :  NMI,  LIMITING  AMOUNT  ADSORBED  OF  MIXTURE 
[KMOUKG] 

PAR(1 0)  :  RVS,  ACTIVITY  COEFFICENT  OF  VACANCY 

N  SURFACE  PHASE 

PAR(1 1 )  :  XVS,  MOLE  FRACTION  OF  VACANCY 
REPRESENTING  ADSORBED  PHASE 
PAR(1 2)  :  PRES,EQUILIBRIUM  ADSORPTION  PRESSURE 
[KPAl 

COMMONBLOCKS  :NONE 

REQURIED  ROUTINES  :ZSPOW,TLBIFCN,  MAPPLT,  PHADIG.PDL 
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DO  10  1-1,21 
C 

CALL  ZSPOW  (  TLBIFCN,  NSIG,  N,  UMAX,  PAR, 
$  X,  FNORM,  WK,  lER  ) 

WRITE(MOO)  I,  lER,  FNORM 
C 

C TO  CALCULATE  VAPOR  PHASE  MOLE  FRACTION 

C 

NM(I)  -  X(1) 

DUM1  -  NM(I) 

CALLYCOMPBI( 

$  PAR(1),  DUM1,  PAR(6),  PAR(2), 

$  PAR(4),  PAR(8),  PAR(9),  PAR(IO), 

$  PAR{1 1 ),  PRES,  DUM2,  DUM3 

$  ) 

Y1(l)  -  DUM2 
Y2(l)  =  DUM3 
XI  (I)  -  PAR(1) 

X2(l)  -1.  -  X1(l) 

PAR(1)  -  PAR(1)  +0.05 
10  CONTINUE 


WRITE(6,102)  (XI  (I),  Y1(l).  X2(l),  Y2(l),  NM(I),I-1,21) 

C 

C TO  PLOT  PHASE  DIAGRAM  WITH  CONSYD 

C 

C  WRITEC,*)  'DO  YOU  WANT  TO  SEE  PHASE  DIAGRAMS?  [Y  OR  N]’ 
C  READ(*,'(A1)')  NO 

C  IF(NO.EQ.*N’)RETURN 
C 

C  CALL  ASSIGN(1  ,'PHADIG.DAT’) 

C  DO  20  1-1 ,21 

C  WRITE(1)  XI  (I),  Y1(l).  X2(l),  Y2(l),  NM(I) 

C  20  CONTINUE 
C  CLOSE{1) 

C 

C 

C  80  CONTINUE 
C  WRITE(MOI) 

C  READ(*,*)  NOPT 
C 

C  GO  TO  (  30,  40,  50,  60  )  NOPT 
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C  30  CALL  MAPPLT  { 'PHADIGr  ) 

C  GO  TO  70 

C 

C  40  CALL  MAPPLT  ( ’PHADIG2* ) 

C  GO  TO  70 
C 

C  50  CALL  MAPPLT  ( 'PHADlGa' ) 

C  GO  TO  70 

C 

C  60  CALL  MAPPLT  ( ■PHADIG4* ) 

C 

C  70  WRITE(*.*)  'DO  YOU  WANT  TO  SEE  ANOTHER  PLOT?  [  Y  OR  N  ]' 
C  READ(*,'(A1)')  NO 
C  IF{NO.EQ.'N')GOTO90 
C  GO  TO  80 
C 

90  RETURN 
C 

100  FORMAT( 

$  (T5,I3,2X.'IER  &  FN0RM’,I3,2X,E1 1  A!) 

$  ) 

101  FORMAT(/// 

$  T5,'1.  PHASE  DIAGRAM  X1  -  Yl'/// 

$  T5;2.  PHASE  DIAGRAM  X2  -  Y2'/// 

$  T5,'3.  PHASE  DIAGRAM  X1  -  Y1  -  Y2’/// 

$  T5.'4.  XI  VS.  AMT.  ADSORBED  OF  MIX.'// 

$  ) 

102  FORMAT(/// 

$  T5, 'COMPOSITION  DATA’//T3,18(1H-)// 

$  TS;  XI'.TIS;  Y1',T25;  X2’J35,’  Y2', 

$  T45.'AMT.  ADS.  OF  MIX.[KMOUKG]'// 

$  (T5,4F10.3,E10.3/)) 

C 

BvO 


SUBROUTINE  TLBIFCN  (  X,  F,  N,  PAR  ) 
DOUBLE  PRECISION  X(*),  Ff),  PAR{*) 
INTEGER  N 

***************** 
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c 

C  SUBROUTINE  TLBIFCN  19  OCTOBER  1987  IN-WON  KIM 
C 

C  SUBROUTINE  IS  TO  CALCULATE  TOTAL  MOLES  ADSORBED 
C  OFBINARY  MIXTURE 

C 

C  PARAMETER  LIST ; 

C 

C  NM  :  TOTAL  MOLES  ADSORBED  MIXTURE  [KMOL/KG] 

C  PAR(1 ) ;  XI .  MOLE  FRACTION  OF  COMPONENT  1 

C  IN  ADSORBED  MIXTURE 

C  PAR{2) :  B1 .  HENRY'S  CONSTANT  OF  COMPONENT  1 

C  [KMOUKG/KPA] 

C  PAR(3) :  B2,  HENRY'S  CONSTANT  OF  COMPONENT  2 

C  [KMOL/KG/KPA] 

C  PAR(4) :  Nil ,  LIMITING  AMOUNT  ADSORBED  OF  PURE 
C  COMPONENT  1  [KMOL/KG] 

C  PAR(5) :  NI2.  LIMITING  AMOUNT  ADSORBED  OF  PURE 
C  COMPONENT  2  [KMOL/KG] 

C  PAR(6) :  ALPHA1 .  NONIDEALITY  PARAMETER  OF  COMPONENT  1 

C  [-] 

C  PAR(7) :  ALPHA2,  NONIDEALITY  PARAMETER  OF  COMPONENT  2 

C  [-] 

C  PAR(8) :  R1 S,  ACTIVITY  COEFFICIENT  OF  COMPONENT  1 

C  IN  SURFACE  PHASE 

C  PAR(9) :  NMI,  LIMITING  AMOUNT  ADSORBED  OF  MIXTURE 
C  [KMOL/KG] 

C  PAR(1 0):  RVS,  ACTIVITY  COEFFICENT  OF  VACANCY 

C  IN  SURFACE  PHASE 

C  PAR(1 1 ):  XVS,  MOLE  FRACTION  OF  VACANCY 

C  REPRESENTING  ADSORBED  PHASE 

C  PAR(12):  PRES, EQUILIBRIUM  ADSORPTION  PRESSURE 

C  [  KPA ] 

C 

C  COMMONBLOCKS  :NONE 
C 

C  REQURIEDROUTINES:NONE 
C 

Q**********«***««****l^llr********«***ilr**********«******* 
***  *#*«fr****1^**** 

C 

DOUBLE  PRECISION  XI ,  X2,  NM,  NMI,  XI S,  X2S,  XVS, 

$  A12,  A21 ,  A1V,  A2V,  ALNR1S,  ALNR2S,  ALNRVS, 
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oo  ooo  oo  o  opo 


$  R1 S.  R2S,  RVS,  F1 .  F2.  PRES.  B1 ,  B2. 

$  N1I,  N2I 
C 

X1  -  PAR(1) 

B1  -  PAR(2) 

B2  -  PAR(3) 

N1I  -  PAR(4) 

N2I  -  PAR(5) 

A1V  -  PAR{6) 

A2V  -  PAR(7) 

PRES  =  PAR(12) 

C 

X2-1.-X1 
NM  -X{1) 

TO  MAKE  SURE  NM  IS  LESS  THAN  NMI 

NMI-X1*N1I+X2‘N2I 
IF{NM.GT.NMl)  THEN 
NM.NMr.99999 
END  IF 

X1S-NM*X1/NMI 
X2S-NM*X2/NMI 
XVS-1.-NM/NMI 
A12»(A1V+1.)/(A2V+1.)-1. 
A21-(A2V+1.)/(A1V+1.)-1. 


ALNR1  S=-LOG(X1  S+X2S/(1  .+A1 2)+XVS/(1  .+A1 V)) 

$  +1  .-(X1  S+X2S/(1  .+A1 2)+XVS/(1  .+A1  V))**(-1 ) 

ALNR2S-LOG((1  .+A1 2)*X1  S+X2S+XVS/(1  .+A2V)) 

$  +1  .-({1  .+A1 2)*X1  S+X2S+XVS/(1  .+A2V))**(-1 ) 

ALNRVS-LOG((1  .+A1  V)*X1  S+(1  .+A2VrX2S+XVS) 

$  +1.-((1  ,+A1  V)*X1  S+(1  .+A2V)*X2S+XVSr(-1) 

..TO  CALCULATE  ACTIVITY  COEFFICIENTS 

R1S  =  EXP{ALNR1S) 

R2S  «  EXP(ALNR2S) 

RVS  «  EXP(ALNRVS) 
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F1  -  R1S*X1*NM/NMrN1l/B1*EXP(A1V)/(1.+A1V) 

$  *EXP(((N1  l-NMI)/NM-1  .rLOG(RVS*XVS)) 

F2  -  R2S*X2*NM/NMI*N2I/B2‘EXP(A2V)/(1  .+A2V) 

$  *EXP({(N2I-NMI)/NM-1  .)‘LOG{RVS*XVS)) 

F(1)-PRES-F1-F2 

C 

C . PARAMETERCONVERSION 

C 

PAR(8)  -  R1S 
PAR(9)  -  NMI 
PAR(10)  -  RVS 
PAR(11)  -  XVS 
C 

RETURN 

END 

C 

C 

C 

SUBROUTINE  YCOMPBI  (X1 ,  NM,  A1 V,  B1 ,  N1 1,  R1 S, 

$  NMI,  RVS,  XVS,  PRES,  Y1 ,  Y2) 

DOUBLE  PRECISION  X1 .  Y1 ,  Y2,  R1 S,  NM,  NMI,  N1 1, 

$  B1,A1V,  RVS,  XVS,  PRES 

C 

Q*«***********ft**********«****«*****«******#**«******* 

««*******««***««* 


C 

C  SUBROUTINE  YCOMPBI  19  OCTOBER  1987  IN-WON  KIM 

C 

C  THIS  SUBROUTINE  IS  TO  CALCULATE  MOLE  FRACTION  OF  GAS 
PHASE 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


IN  BINARY  MIXTURE 
PARAMETER  DESCRIPTION: 

NM  :  TOTAL  MOLES  ADSORBED  MIXTURE  [KMOUKG] 
XI  ;  MOLE  FRACTION  OF  COMPONENT  1 
IN  ADSORBED  MIXTURE 
B1  :  HENRrS  CONSTANT  OF  COMPONENT  1 

[KMOL/KG/KPA] 

Nil  :  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  1  [KM017KG] 

ALPHA1  :  NONIDEALITY  PARAMETER  OF  COMPONENT  1 
[-] 
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,lv 


( 


R1 S  :  ACTIVITY  COEFFICIENT  OF  COMPONENT  1 
IN  SURFACE  PHASE 

NMI  :  LIMITING  AMOUNT  ADSORBED  OF  MIXTURE 
KMOL7KG] 

RVS  :  ACTIVITY  COEFFICENT  OF  VACANCY 
IN  SURFACE  PHASE 
XVS  :  MOLE  FRACTION  OF  VACANCY 

REPRESENTING  ADSORBED  PHASE 
PRES  :  EQUILIBRIUM  ADSORPTION  PRESSURE 
[KPA] 

Y1  :  GAS  PHASE  MOLE  FRACTION  OF  COMPONENT  1 
[-1 

Y2  ;  GAS  PHASE  MOLE  FRACTION  OF  COMPONENT  2 
[-] 

COMMONBLOCKS  :NONE 
REQURIEDROUTINES;NONE 


A**************************************************** 

r**AA*A*AA*A*AA** 


Y1  «  R1S*XrNM/NMrN1l/B1*EXP(A1V)/(1.+A1V) 
$  *EXP(((N1  l-NMO/NM-l  .)*LOG(RVS*XVS))/PRES 

Y2  «  1  .-Y1 

RETURN 

END 


SUBROUTINETERNSYS 


lr**AA**AAAAAA 

SUBROUTINE  TERNYS  26  OCTOBER  1 987  IN-WON  KIM 
This  subroutine  is  to  write  option  on  the  screen 
for  binary  component  system. 

OPTION  DESCRIPTION 

1  Phase  Diagram  between  gas  phase  mole 
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0000*00  OOO  O  O  O  O  O  0*000000000 


F.il  tfWlf  .vswwynyx  tfiurKU~ura.inijrKjrn.i(  ^jrTucTurrLn  isjt  mi  nji  rui 


fraction  and  gas  phase  mole  fraction 
2  TERNARY  component  isotherm  plots 

COMMO^BLOCKS  NONE 

REQUROEDROUTINES-.PHDITEN.TERNISO 

***************************************************** 

************ 


INTEGERNOPT 

WR1TE(*,100) 

READ(‘,*)  NOPT 
GOTO(1,2)NOPT 

1  CALL  PHDITEN 
RETURN 

2  CALLTERNISO 
RETURN 

100  FORMAT  (///T5, 'OPTIONS  :'//// 

$  T5,'1 .  PHASE  DIAGRAM  BETWEEN  GAS  PHASE  MOLE'/ 

$  T5,'  FRACTION  AND  SOLID  PHASE  MOLE  FRACTION’/// 

$  T5,'2.  TERNARY  COMPONENT  ISOTHERM  PLOTS’/ 

$  T5,’  -NOT  AVAILABLE  NOW'/// 

$  T5, 'ENTER  YOUR  CHOICE  [  1  OR  2  ]’) 

BSD 


SUBROUTINETERNISO 

***************************************************** 


THIS  SUBROUTINE  IS  TOCALCULATETERNARY COMPONENT 
ISOTHERM  DATA 


oo  o  *000000000000000000  *00  000 


Q***************************«*************k*********** 

***************** 


WRITE(MOO) 


RETURN 


100  FORMAT(/// 

$  TS/SORRYim  NOT  AVAILABLE  NOW!!'// 

$  ) 


SUBROUTINEPHDITEN 

************«**«**************4******************«*** 

r*«************* 

SUBROUTINE  PHASDIG  21  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  PLOT  PHASEDIQGRAM  OF 
BINARYCOMPONENTSYSTEM 

PARAMETER  DESCRIPTION : 

NBENT  ;  ADSORBENT  NO. 

NBATE  :  ADSORBATE  NO. 

TEMP  ;  TEMPERATURE  [K] 

PRESS  :  PRESSURE  [KPA] 

COMMONBLOCKS  :NONE 

REQURIED  ROUTINES  :TERNCAL 

««**4#***********«************««*t**************«***« 
***  ****«**«***♦* 


DOUBLE  PRECISIONTEMP,  PRESS 
INTEGER  NBENT,  NBATE(3) 

.TOCHOOSEADSORBENT-ADSORBATEPAIRS 


wwwwrawwww* 


o o o o o o o o o o o o o o o  *oo  ooo  o  o  o  opo  opo 


c 


CALLTENPAIR  (  NBENT,  NBATE  ) 


. TO  INPUT  PRESSURE  ANDTEMPERATURE  DATA 

WRITEC,*)  'ENTER  PRESSURE-TEMPERATURE  PAIR' 
WRITE(*,*)  •  [  KPA,  K  ]' 

READ(*.*)  PRESS.  TEMP 

. TOGENERATESOLIDPHASEMOLEFRACTIONS 

CALL  TERNCAL  (NBENT,  NBATE,  TEMP,  PRESS) 
RETURN 

100  FORMAT(///) 


SUBROUTINE  TENPAIR  ( NBENT,  NBATE ) 

INTEGER  NBENT,  NBATE(3) 

r************4ft*Q 

SUBROUTINE  PURPAIR  26  OCTOBER  1987  IN-WON  KIM 

THIS  SUBROUTINE  IS  TO  CHOOSE  ADSORBENT -  ADSORBATE  PAIR 
FROM  THE  DATA  BANK. 

PARAMETER  DESCRIPTION : 

NBENT  :  ADSORBENT  NO.  (SEE  BLOCK  DATA  AN  AM  E) 

NBATE  :  ADSORBATE  NO.  (SEE  BLOCK  DATA  BNAME) 

COMMONBLOCKS  :BATNAME.BETNAME 

ROUTINEREQUIRED:NAME 

**************  A  **««*#*#*#***************#***«***«**** 


CHARACTER*25  SORBENT(20),  SORBATE(20) 

COMMON  /BATNAME/  SORBATE 
COMMON/BETNAM  E/SORBENT 
C 

C . TO  DISPLAY  ADSORBENT-ADSORBATE  PAIR  ON  THE  SCREEN 

C 

CALL  NAME 
C 

WRITEC,*)  'ENTER  ADSORBENT  NUMBER  [  1  ]’ 

READ(‘,*)  NBENT 

WRITE(*,*)  'ENTER  ADSORBATE  1  [  1  ]' 

READ(*,*)  NBATE(1) 

WRITER,*)  'ENTER  ADSORBATE  2  [  1  ]' 

READ(*,‘)  NBATE(2) 

WRlTE(‘,‘)  'ENTER  ADSORBATE  3  [  1  ]' 

READf,*)  NBATE(3) 

C 

WRITE(MOO)  SORBENT(NBENT),  SORBATE(NBATE(1)), 

$  SORBATE{NBATE(2)).  SORBATE(NBATE(3)) 

C 

RETURN 

C 

100  FORMAT(/// 

$  TS.'YOUR  CHOICES  ARE'/// 

$  T8, 'ADSORBENT  • ',A25// 

$  T8, 'ADSORBATE  1  :  ’.A25// 

$  T8.' ADSORBATE  2  ;  '.A25// 

$  T8,' ADSORBATE  3  ;  '.A25// 

$  ) 

C 

E^D 

C 

C 

C 

SUBROUTINE  TERNCAL  ( NBENT,  NBATE,  TEMP,  PRES ) 
DOUBLE  PRECISIONTEMP,  PRES 
INTEGER  NBENT,  NBATE(3) 

C 

*★«★***«★******** 

C 

C  SUBROUTINE  TERNCAL  26  OCTOBER  1 987  IN-WON  KIM 

C 
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c 

c 

c 

C 

C 

C 

C 

C 

C 

C 

C 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THIS  SUBROUTINE  IS  TO  CALCULATE  PURE-COMPONENT 
ADSORPTION  DATA. 

PARAMETER  DESCRIPTION : 


NBENT 
NBATE  : 
TEMP 
NM 

PAR(1)  : 
PAR(2)  ; 
PAR(3)  : 
PAR(4)  : 
PAR(5)  : 
PAR(6) 
PAR(7) 
PAR{8) 
PAR(9) 
PAR(10) 
PAR(11) 
PAR{12) 
PAR(13) 
PAR(14) 
PAR(15) 
PAR(16) 
PAR(17): 


:  ADSORBENT  NO. 

ADSORBATE  NO. 

:  TEMPERATURE  [K] 

TOTAL  MOLES  ADSORBED  MIXTURE  [KMOL/KG] 

XI .  MOLE  FRACTION  OF  COMPONENT  1 
IN  ADSORBED  MIXTURE 
X2.  MOLE  FRACTION  OF  COMPONENT  2 
IN  ADSORBED  MIXTURE 
B1 .  HENRY'S  CONSTANT  OF  COMPONENT  1 
[KMOL/KG/KPA] 

B2,  HENRY'S  CONSTANT  OF  COMPONENT  2 
[KMOL/KG/KPA] 

B3,  HENRY'S  CONSTANT  OF  COMPONENT  3 
[KMOL/KG/KPA] 

:  N1I,  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  1  [KMOUKG] 

:  N2I,  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  2  (KMOUKG] 

:  N3I,  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENTS  [KMOUKG] 

:  A1 V,  NONIDEALITY  PARAMETER  OF  COMPONENT  1 
[-] 

;  A2V,  NONIDEALITY  PARAMETER  OF  COMPONENT  2 
[-] 

:  A3V,  NONIDEALITY  PARAMETER  OF  COMPONENT  3 
[-] 

:  R1S,  ACTIVITY  COEFFICIENT  OF  COMPONENT  1 
IN  SURFACE  PHASE 

:  R2S,  ACTIVITY  COEFFICIENT  OF  COMPONENT  2 
IN  SURFACE  PHASE 

:  NMI,  LIMITING  AMOUNT  ADSORBED  OF  MIXTURE 
[KMOUKG] 

:  RVS,  ACTIVITY  COEFFICENT  OF  VACANCY 
IN  SURFACE  PHASE 
:  XVS,  MOLE  FRACTION  OF  VACANCY 
REPRESENTING  ADSORBED  PHASE 
PRES,  EQUILIBRIUM  ADSORPTION  PRESSURE 
[KPA] 
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COMMONBLOCKS 


:NONE 


C 
C 
C 

C  REQURIED  ROUTINES :  PARACAL,  ZSPOW.  TLTRFCN,  MAPPLT, 

C  PHDITE.PDL 

C 


CHARACTER‘1  NO 

DOUBLE  PRECISION  X(1).  WK(10),  FNORM, 

$  PAR(17),  NM(21.21), 

$  X1(21),  X2(21),  Y1(21,21),  Y2(21,21), 

$  X3(21),  Y3(21,21), 

$  DUM1 ,  DUM2,  DUM3.  DUM4.  MINNM 

INTEGER  N,  NSIG,  ITMAX,  lER,  KK 
EXTERNALTLTRFCN 
DATA  NO  m'/ 

DATA  X1,  X2  /21*0.D0.  21*0.D0/ 

DATA  Y1,  Y2,  NM  /441*0.D0,  441*0.D0,  441‘0.D0  / 

C 

C TOCALCURATE  PARAMETER  VALUES  FOR  VSM  FORGIVEN 

C . ADSORBATEANDADSORBENT 

C 

CALL  PARACAL  (NBENT,  NBATE{1),  TEMP,  PAn(3),PAR{6), 
PAR(9)) 

CALL  PARACAL  (NBENT,  NBATE(2),  TEMP,  PAR(4),PAR(7), 
PAR(10)) 

CALL  PARACAL  (NBENT,  NBATE(3),  TEMP,  PAR(5),PAR(8), 
PAR(11)) 

C 

C TO  CALCULATE  MOLE  FRACTION  OF  SOLID  PHASE 

C . USINGZSPOWNONLINEARALGEBRAICEQUATIONSOLVER 

C 

N  -  1 
NSIG  -  9 
ITMAX  -400 
PAR(17)  -  PRES 
PAR(1)  -  0.0 
MINNM -1.E30 
C 

DO  20  1-1,21 

PAR(2)  =  0,0 
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X1(l)  -  PAR(1) 

X(1)  -5.0D-3 
KK  =  21  -  (M) 

DO10  J-1,KK 
C 

CALL  ZSPOW  {  TLTRFCN,  NSIG,  N,  UMAX,  PAR, 
$  X,  FNORM,  WK,  lER  ) 

WRITE(MOO)  I.  J.  3ER.  FNORM 
C 

NM(I.J)  -X(1) 

MINNM  -  MIN  (MINNM,  NM(I.J) ) 

DUM1  »  NM(I,J) 

C 


C . TOCALCULATE  VAPOR  PHASEMOLE  FRACTION 

C 

CALLYCOMPTE( 

$  PAR(1),  PAR(2),  DUM1,  PAR(9),  PAR(IO). 

$  PAR(3),  PAR(4),  PAR(6),  PAR{7), 

$  PAR(12).  PAR(13),  PAR(14),  PAR(15), 

$  PAR(16).  PRES,  DUM2,  DUM3,  DUM4 

$  ) 


Y1(I,J)  =  DUM2 
Y2(I,J)  -  DUM3 
Y3(I,J)  -  DUM4 
X2(J)  -  PAR(2) 

X3(l)  -1.  -  XI  (I)  -X2(J) 

PAR(2)  -  PAR(2)  +0.05 
10  CONTINUE 
C 

PAR(1)  -  PAR(1)+0.05 
20  CONTINUE 
C 
C 

C . TO  PRINT  OUT  THE  DATA 

C 

WRITE  (6,101)  (  X2(l),  1-1,11  ) 

WRITE  (6,102)  (  XI  (I),  (  Y1(I,J),  J-1,11  ),  1-1,21  ) 
WRITE  (6,103)  (  X2(l),  1-12,21  ) 

WRITE  (6,104)  (  XI  (I),  (  Y1(I,J),  J-12,21  ),  1=1,21  ) 
C 

WRITE  (6,105)  (  X2(l),  1-1,11  ) 

WRITE  (6,102)  (  XI  (I),  (  Y2(I,J),  J»1,11  ),  1-1,21  ) 
WRITE  (6,103)  (  X2(l),  1-12,21  ) 


WRITE  (6,104)  (  XI  (I).  (  Y2(I.J).  J-12,21  ),  1-1,21  ) 

C 

WRITE  (6,106)  (  X2(l),  1-1,11  ) 

WRITE  (6,102)  (  XI  (I),  (  NM(I.J)*1000.,J-1,11),I-1,21) 

WRITE  (6,103)  (  X2(l),  1-12,21  ) 

WRITE  (6,104)  (  X1(l).  (  NM(I,J)*1000.,J-12,21), 1=1,21) 

C 

C . TO  PLOT  PHASE  DIAGRAM  WITHCONSYD 

C 

C  WRITE(*.*)  'DO  YOU  WANT  TO  SEE  THREE-DIMENSIONAL' 

C  WRITE(*,*) '  PHASE  DIAGRAMS?  [Y  OR  N]' 

C  READ(‘,’(A1)')  NO 

C  IF(NO.EQ.'N')GOTO80 
C 

C  DO  91  I  -  2.  21 
C  DO  90  J  -  23-1,  21 
C  NM(I,J)  -  MINNM 

C  90  CONTINUE 
C  91  CONTINUE 
C 

C  30  CONTINUE 
C  WRITE(M07) 

C  READ(*,’‘)  NOPT 
C 

C  GO  TO  (  40,  50  60  )  NOPT 
C 

C  40  CALL  TRDPLOT  (  NOPT,  21 ,  21 ,  Y1  ) 

C  GO  TO  70 
C 

C  50  CALL  TRDPLOT  (NOPT,  21,21,  Y2) 

C  GO  TO  70 

C 

C  60  CALL  TRDPLOT  (NOPT,  21,21,  NM) 

C 

C  70  CONTINUE 

C  WRITE(*,*) '  DO  YOU  WANT  TO  SEE  ANOTHER  PLOT?  [  Y  OR  N  ]' 
C  READ(*,'(A1)')  NO 
C  IF(NO,EQ;N')GOT080 
C  GO  TO  30 
C 

80  RETURN 
C 
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100  FORMAT( 

$  (T5.I3,2X,I3,2X,'IER  &  FNORMM3,2X,E11.4/) 

$  ) 

101  F0RMAT(/// 

$  T5, 'COMPOSITION  DATA,  XI  -  X2  -  Y1'//T3,35(1H-)// 

$  T1,' X1\X2M1F6.3//) 

102  FORMAT{T1.12F6.3) 

103  FORMAT(/// 

$  T1,' X1\X2',10F6.3//) 

104  FORMAT(T1.11F6.3) 

105  FORMAT(/// 

$  TS.'COMPOSITION  DATA.  X1  -  X2  -  Y2’//T3,35(1H-)// 

$  T1,' X1\X2'.11F6.3//) 

106  FORMAT(/// 

$  T5,’AMT.  ADSORBED  OF  MIXTURE,  XI  000[KMOL/KG]’/ 

$  T3.45(1H-)// 

$  T1.' X1\X2',11F6.3//) 

107  FORMAT(/// 

$  T5,'1.  PHASE  DIAGRAM  X1  -  X2  -  YV/// 

$  T5,'2.  PHASE  DIAGRAM  X1  -  X2  -  Y2'/// 

$  T5,'3.  XI  AND  X2  VS.  AMT.  ADSORBED  OF  MIX.'// 

$  ) 

j 

BO 


SUBROUTINE  TLTRFCN  (  X.  F,  N,  PAR  ) 
DOUBLE  PRECISION  Xf),  FH,  PARf) 
INTEGER  N 


SUBROUTINE  TLTRFCN  19  OCTOBER  1987  IN-WON  KIM 

SUBROUTINE  IS  TO  CALCULATE  TOTAL  MOLES  ADSORBED 
OFTERNARYMIXTURE 

PARAMETER  DESCRIPTION  ; 

NM  :  TOTAL  MOLES  ADSORBED  MIXTURE  [KMOL/KG] 
PAR(1 ) :  XI ,  MOLE  FRACTION  OF  COMPONENT  1 
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IN  ADSORBED  MIXTURE 

PAR(2) :  X2,  MOLE  FRACTION  OF  COMPONENT  2 
IN  ADSORBED  MIXTURE 

PAR{3) :  B1 ,  HENRY'S  CONSTANT  OF  COMPONENT  1 
[KMOL/KG/KPA] 

PAR(4) :  B2,  HENRrS  CONSTANT  OF  COMPONENT  2 
[KMOL/KG/KPA] 

PAR{5) :  B3.  HENRY'S  CONSTANT  OF  COMPONENT  3 
[KMOL/KG/KPA] 

PAR(6) :  N1 1.  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  1  [KMOL/KG] 

PAR(7) :  N2I.  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  2  [KMOL/KG] 

PAR(8) :  N3I,  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENTS  [KMOL/KG] 

PAR(9) :  A1 V,  NONIDEALITY  PARAMETER  OF  COMPONENT  1 
[-] 

PAR(1 0):  A2V.  NONIDEALITY  PARAMETER  OF  COMPONENT  2 
[-1 

PAR(1 1 ):  A3V.  NONIDEALITY  PARAMETER  OF  COMPONENT  3 
[-1 

PAR(12);  R1 S,  ACTIVITY  COEFFICIENT  OF  COMPONENT  1 
IN  SURFACE  PHASE 

PAR(13):  R2S,  ACTIVITY  COEFFICIENT  OF  COMPONENT  2 
IN  SURFACE  PHASE 

PAR(1 4):  NMI,  LIMITING  AMOUNT  ADSORBED  OF  MIXTURE 
[KMOL/KG] 

PAR(15);  RVS,  ACTIVITY  COEFFICENT  OF  VACANCY 
IN  SURFACE  PHASE 

PAR(16):  XVS,  MOLE  FRACTION  OF  VACANCY 
REPRESENTING  ADSORBED  PHASE 

PAR(17):  PRES,  EQUILIBRIUM  ADSORPTION  PRESSURE 
[KPA] 

COMMONBLOCKS  :NONE 

REQURIEDROUTINES:NONE 


•  ♦A************************************************** 
«************>«*** 

C 

DOUBLE  PRECISION  XI ,  X2,  X3,  NM,  NMI,  X1S,  X2S,  X3S, 

$  XVS.  A12,  A21,  A1V,  A2V,  A13,  A31,  A23,  A32, 
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$  A3V,  DUM1 ,  DUM2,  DUM3.  DUM4. 

$  ALNR1 S.  ALNR2S.  ALNR3S,  ALNRVS, 

$  R1 S,  R2S.  R3S,  RVS,  Y1 P,  Y2P,  Y3P 
DOUBLE  PRECISION  B1,  B2,  B3,  N1I,  N2I,  N3I, 

$  AV1,  AV2,  AV3,  PRES 
C 

X1  -  PAR(1) 

X2  -  PAR(2) 

B1  -  PAR(3) 

B2  -  PAR(4) 

B3  -  PAR(5) 

Nil  -  PAR(6) 

N2I  -  PAR(7) 

N3I  -  PAR(8) 

A1V  -  PAR(9) 

A2V  -  PAR(IO) 

A3V  -  PAR(11) 

PRES  -  PAR(17) 

C 

X3  -  1.-  X1  -  X2 
NM  -  X(1) 

TO  MAKE  SURE  NM  IS  LESS  THAN  NMI 

NMI  -  X1*N1I  +  X2*N2I  +  X3*N3I 
IF(NM.GT.NMI)  THEN 
NM-NMr.99999 
END  IF 

X1S-NM*X1  /  NMI 
X2S  =  NM*X2  /  NMI 
X3S  -  NM*X3  /  NMI 
XVS  -  1,  -  NM/NMI 

TOCALCULATENONIDEALITYPARAMETEROFMIXTURE 

A12  -  (A1V  +  1.)/(A2V+1)  -  1, 

A21  -  1./(A12+1)  -1. 

A13  -  (A1V  +  1.)/(A3V+1)  -  1. 

A31  -  1./(A13+1)  -1. 

A23  -  {A2V  +  1.)/(A3V+1)  -  1. 

A32  -  1./(A23+1)  -1. 

AVI  -  1./(A1V+1)  -1, 

AV2  -  1./(A2V+1)  -1. 
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AV3  -  1./(A3V+1)  -1. 


TO  CALCULATE  ACTIVITY  COEFFICIENTS 

DUM1  »  X1S  +  X2S/(A12+1.)  +  X3S/{A13+1.)  +XVS/(A1  V+1 .) 
ALNR1S  »  -LOG(DUMI)  +  1.  -  1./DUM1 
R1S  =  EXP  (ALNRIS) 

DUM2  -  X1S/(A21+1.)  +  X2S  +  X3S/(A23+1.)  +XVS/(A2V+1 .) 
ALNR2S  -  -LOG(DUM2)  +  1.  -  1./DUM2 
R2S  «  EXP  {ALNR2S) 

DUM3  -  X1S/(A31+1.)  +  X2S/(A32+1.)  +  X3S  +XVS/(A3V+1 .) 
ALNR3S  =  -LOG(DUM3)  +  1.  -  1./DUM3 
R3S  .  EXP  (ALNR3S) 

DUM4  -  X1S/(AV1+1.)  +  X2S/(AV2+1.)  +  X3S/(AV3+1.)  +  XVS 
ALNRVS  -  -LOG(DUM4)  +  1.  -  1./DUM4 
RVS  -  EXP  (ALNRVS) 


Y1P  -  R1S*X1*NM/NMI*N1I/B1*EXP(A1V)/(1.+A1V) 

$  *EXP{((N1  l-NMO/NM-l  .)*LOG(RVS*XVS)) 

Y2P  »  R2S*X2*NM/NMrN2l/B2*EXP(A2V)/(1  .+A2V) 

$  *EXP(((N2I-NMI)/NM-1  .)*LOG(RVS*XVS)) 

Y3P  -  R3S‘X3*NM/NMrN3l/B3*EXP(A3V)/(1  .+A3V) 

$  *EXP({(N3I-NMI)/NM-1  .)*LOG(RVS*XVS)) 

F(1)  -  PRES  -  Y1P  -Y2P  -Y3P 

PARAMETERCONVERSION 

PAR(12)  -  R1S 
PAR(13)  -  R2S 
PAR(14)  -  NMI 
PAR(15)  -  RVS 
PAR(16)  -  XVS 

RETURN 

END 


SUBROUTINE  YCOMPTE  (X1 ,  X2,  NM,  A1 V,  A2V,  B1 ,  B2, 
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N1I,  N2I.  R1S,  R2S,  NMI,  RVS, 

XVS,  PRES.  Y1,  Y2.  Y3) 

DOUBLE  PRECISION  X1 .  X2.  Y1 .  Y2.  Y3,  R1S,  R2S. 
NM.  NMI.  N1 1.  N2I.  B2.  A2V, 

B1,  A1V.  RVS.  XVS.  PRES 


SUBROUTINE  YCOMPTE  26  OCTOBER  1987  IN-WON  KIM 
THIS  SUBROUTINE  IS  TO  CALCULATE  MOLE  FRACTION  OF  GAS 
IN  BINARY  MIXTURE 
PARAMETER  DESCRIPTION: 

NM  :  TOTAL  MOLES  ADSORBED  MIXTURE  [KMOL/KG] 

XI  :  MOLE  FRACTION  OF  COMPONENT  1 
IN  ADSORBED  MIXTURE 
X2  :  MOLE  FRACTION  OF  COMPONENT  2 
IN  ADSORBED  MIXTURE 
B1  :  HENRY’S  CONSTANT  OF  COMPONENT  1 
[KMOUKO/KPA] 

B2  :  HENRY’S  CONSTANT  OF  COMPONENT  2 
[KMOLyKGKPA] 

Nil  :  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  1  [KMOliKG] 

NI2  :  LIMITING  AMOUNT  ADSORBED  OF  PURE 
COMPONENT  2  [KMOL/KG] 

A1 V  :  NONIDEALITY  PARAMETER  OF  COMPONENT  1 
[-] 

A2V  ;  NONIDEALITY  PARAMETER  OF  COMPONENT  2 
(-] 

R1 S  :  ACTIVITY  COEFFICIENT  OF  COMPONENT  1 
IN  SURFACE  PHASE 

R2S  :  ACTIVITY  COEFFICIENT  OF  COMPONENT  2 
IN  SURFACE  PHASE 

NMI  :  LIMITING  AMOUNT  ADSORBED  OF  MIXTURE 
[KMOUKG] 

RVS  ;  ACTIVITY  COE FFICENT  OF  VACANCY 
IN  SURFACE  PHASE 
XVS  :  MOLE  FRACTION  OF  VACANCY 


OOOOOOOOOO  *00  OOO  O  OO  *000000000000000 


REPRESENTING  ADSORBED  PHASE 
PRES  :  EQUILIBRIUM  ADSORPTION  PRESSURE 
[KPA] 

Y1  :  GAS  PHASE  MOLE  FRACTION  OF  COMPONENT  1 

I-] 

Y2  :  GAS  PHASE  MOLE  FRACTION  OF  COMPONENT  2 
[-] 

Y3  :  GAS  PHASE  MOLE  FRACTION  OF  COMPONENT  3 
I-] 

COMMONBLOCKS  :NONE 
REQURIEDROUTINES:NONE 


*************** 


Y1  -  R1S*XrNM/NMrN1l/B1*EXP(A1V)/(1.+A1V) 

$  *EXP({(N1  l-NMI)/NM-1  .)*L0G(RVS*XVS))/PRES 

Y2  =  R2S*X2*NM/NMrN2l/B2*EXP(A2V)/{1.+A2V) 

$  *EXP(((N2I>NMI)/NM-1  .)*LOG(RVS*XVS))/PRES 

Y3  =  1,-Y1  -Y2 

RETURN 

END 


SUBROUTINE  TRDPLOT  { NOPT,  NX,  NY,  RAWDATA ) 

***************************************************** 

^*************** 

SUBROUTINE  TRDPLOT  26  OCTOBER  1987  IN-WON  KIM 
THIS  SUBROUTINE  IS  TO  PLOT  THREE  DIMENSIONAL  PLOT 

PARAMETER  DESCRIPTION : 

NOPT  :  OPTION  NO. 

NX  :  NO.  OF  DATA  POINTS  ON  X-AXIS 


C  NY  :  NO.  OF  DATA  POINTS  ON  Y-AXIS 
C  RAWDATA :  DATA  SET  TO  BE  PLOTTED 
C  XMIN  :  MINIMUM  VALUE  OF  X-AXIS 
C  XMAX  :  MAXIMUM  VALUE  OF  X-AXIS 
C  YMIN  :  MINIMUM  VALUE  OF  Y-AXIS 
C  YMAX  :  MAXIMUM  VALUE  OF  Y-AXIS 
C 

C  COMMONBLOCKS  :NONE 
C 

C  REQURIEDROUTINES:NONE 
C 

Q«*************************«******«**W***«************ 

***************** 

c 

DOUBLE  PRECISION  RAWDATA  (  21 , 21  ) 

REAL  DUMRAY(21 ),  XMIN,  XMAX,  YMIN,  YMAX 
INTEGER*2NX,  NY 
C 

GO  TO  (  10,  20,  30  )  NOPT 
10  CALL  ASSIGN(1,'THRDAT1. DAT) 

GO  TO  40 

20  CALL  ASSIGN(1  ,THRDAT2.DAr) 

GO  TO  40 

30  CALL  ASS1GN{1  ,THRDAT3.DAr) 

40  CONTINUE 
REWIND  1 

C 

XMIN -0.0 
XMAX  =  1 .0 
YMIN  -0.0 
YMAX  -  1 .0 

WRITE(1)  NX,  NY,  XMIN.  XMAX.  YMIN,  YMAX 
C 

DO  60  I  =  1 ,  NX 
DO  50  J  =  1 , NY 

DUMRAY(J)  -  SNGL  (  RAWDATA(I,J) ) 

50  CONTINUE 

WRITE{1)  (DUMRAY(K),  K=1,NY) 

60  CONTINUE 
CLOSE(I) 

C 

WRITE(*,100) 
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»r»»w««rT,«^..Ti-irwCT«j»i«iintjraMiiirKiniuxtritUTlvnwwT^w\ntWTtVM>mvXMV.VTtWKUX\fltVXVSAryU>VyVVWUy'JHVVl.V\miVUVwVx%LVy\VU^ 


RETURN 


FORMAT{// 

T5,T0  SEE  THE  THREE-DIMENTIONAL  PLOT,'// 
T5, 'PLEASE  TYPE  LIKE  THAP/Z 
T5,'VMS>  PL3  '// 

T5,’PL3>  THROAT*'// 

T5, 'THRDAT1.DAT  :  X1  -  X2  -  Y1  PLOP// 
T5.'THRDAT2.DAT  ;  X1  -  X2  -  Y2  PLOP// 

T5, 'THRDAT3.DAT  :  X1  -  X2  -  NM  PLOP// 

) 


BO 


BLOCK  DATA  ADATA 

***************************************************** 

^****««********* 


BLOCK  DATA  ANAME  1 9  OCTOBER  1 987  IN-WON  KIM 

THIS  SUBROUTINE  SULLPLIES  THE  PARAMETER  VALUES  OF 
F-H  VACANCY  SOLUTION  MODEL 


PARAMETER  DESCRIPTION 


PARA(LJ,1)  =  TEMPERATURE  INDEPENDENT  CONSTANT 
FOR  HERY'S  LAW  CONSTANT. 

Bio  [kmol/kg/Kpa] 

PARA(I,J,2)  -  TEMPERATURE  INDEPENDENT  CONSTANT 
FOR  LIMITING  AMOUNT  ADSORBED, 
n1  i  [kmol/kg] 

PARA(I,J,3)  =  TEMPERATURE  INDEPENDENT  CONSTANT, 
CHARACTERISING  EACH  ADSORBATE- 
ADSORBENT  SYSTEM 
ri,  [  K  ] 

PARA(I,J,4)  «  ISOSTERIC  HEAT  OF  ADSORPTION, 

q,  U/kmol] 

PARA(I,J,5)  -  TEMPERATURE  INDEPENDENT  CONSTANT 
FOR  PROPORTIONALITY, 
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P: 


DOUBLE  PRECISION  PARA(20,20,5) 
COMMON  /PARAMET/  PARA 


DATA  (PARA(1,1,I).I-1,5)/ 

$  11.4  D-09,  1.80  D-03,  0.  D  00,  .1.057D07.  17.68D02  / 


DATA  (PARA(1,2,I),I=1,5)/ 

$  1.03  D-09,  6.99  D-03,  0.  D  00,  -1.970D07,  5.32  D02  / 


DATA  (PARA(3,3,I),I-1,5)/ 

$  1.01  ID-09,  2.35  D-03,  2.55  D  02,  -3.344D07,  7.19  D02  f 


DATA  (PARA(3,4,I),I-1,5)/ 

$  5.385D-09,  1 .355D-03,  3.927D  02,  -4.081  D07,  8.986D02  / 


DATA  (PARA(4,5,I),I-1,5)/ 

$  5.94  D-09,  10.5  D-03,  0.  D  00,  -1.886D07,  3.52  D02  / 


DATA  (PARA(4,6,I),I-1,5)/ 

$  2.49  D-09,  12.4  D-03,  0.  D  00,  -2.426D07,  2.76  D02  / 


DATA  (PARA(4,7,I),I-1,5)/ 

$  2.35  D-09,  1 1 .0  D-03,  0.  D  00,  -2.762D07,  3.75  D02  / 


DATA  (PARA(4,8,I),I-1,5)/ 

$  4.78  D-09,  5.91  D-03.  0.  D  00,  -2.646D07,  6.04  D02  / 


DATA  (PARA(4,3,I),I=1,5)/ 
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$  5.60  D-09,  5.71  D-03,  0.  D  00,  -2.707D07,  6.30  D02  / 

C 

DATA  (PARA(4,9,I),I»1,5)/ 

$  2.85  D-09,  2.14  D-03,  270.  D  00,  -3.759D07,  10.79D02  / 

C 

DATA  (PARA(4,4.I),I-1.5)/ 

$  7.87  D-09,  2.56  D-03,  208.  D  00,  -3.577D07,  11.91D02  / 

C 

DATA  (PARA(4,10,I),I-1.5)/ 

$  33.30D-09,  1.93  D-03,  217.  D  00,  -3.993D07,  18.86D02  / 

C 

DATA  (PARA(5,8,I),I-1,5)/ 

$  0.561  D-09,  4.58  D-03,  0.  D  00,  -2.644D07,  7.03  D02  / 

C 

DATA  (PARA(5,9,I).I=1.5)/ 

$  2.16  D-09,  4.61  D-03,  0.  D  00,  -2.806D07,  7.68  D02  / 

C 

DATA  (PARA{5, 4.1), 1-1,5)/ 

$  0.917D-09,  8.98  D-03,  0.  D  00,  -2.681  D07.  4.35  D02  / 

C 

DATA  (PARA(6,1,I),I-1,5)/ 

$  5.89  D-09,  7.01  D-03,  0.  D  00,  -1.265D07,  2.54  D02  / 

C 

DATA  (PARA(6,2.I).I-1,5)/ 

$  11,30D-09,  5.32  D-03,  0.  D  00,  -1.575D07,  8.05  D02  / 

C 

DATA  (PARA(6,11,I),I-1,5)/ 

$  136.0D-09,  6.03  D-03,  0.  D  00,  -1.566D07,  9.87  D02  / 

C 

DATA  (PARA(7,8.I),I-1.5)/ 

$  1,25  D-09,  2.91  D-03,  0.  D  00,  -3.532D07,  10.93D02  / 

C 

DATA  (PARA(7,3,I),I-1.5)/ 

$  1.36  D-09,  2.88  D-03,  0.  D  00,  -2.775D07,  4.38  D02  / 

C 

DATA  (PARA(7,12,I),I-1,5)/ 

$  74.30D-09,  0.408D-03,  457.  D  00,  -2.971  D07,  21.71D02  / 

C 

DATA  (PARA(7,6,I),I-1,5)/ 

$  0.913D-09,  4.35  D-03,  0.  D  00,  -3.753D07,  9.29  D02  / 

C 


c 

c 

BLOCK  DATA  ANAME 
C 

Q******************* 


c 

C  BLOCK  DATA  ANAME  19  OCTOBER  1987  IN-WON  KIM 
C 

C  THIS  SUBROUTINE  IS  FOR  THE  NAME  OF  ADSORBENT 
C 

C  COMMONBLOCKS  iBETNAME 
C 

C  REQURIEDROUTINES:NONE 
C 

Q *******************************.*.* ********** 


C 

CHARACTER*25  SORBENT(20) 
COMMON/BETNAME/SORBENT 
C 

DATA  SORBENT(I)  /  '(1)  RS107 
DATA  SORBENT(2)  /  '(2)  ZEOLITE  5A7 
DATA  SORBENT(3)  /  '(3)  ACTIVATED  CARBON7 
DATA  SORBENT(4)  /  '(4)  NUXIT  AL  ACT.  CAR.7 
DATA  SORBENT(5)  /  '(5)  SILICA7 
DATA  SORBENT(6)  /  '(6)  ZEOLITE  10X7 
DATA  SORBENT(7)  /  '(7)  ZEOLITE  13X7 
C 

BO 

C 

C 

C 

BLOCK  DATA  ENAME 
C 

A**************** 

C 

C  BLOCK  DATA  BNAME  1 9  OCTOBER  1 987  IN-WON  KIM 
C 

C  THIS  SUBROUTINE  IS  FOR  THE  NAME  OF  ADSORBATE 
C 

C  COMMONBLOCKS  :BATNAME 
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REQUIREDROUTINESiNONE 

***«**********************A«********ik**************** 
***************** 

C 

CHARACTER*25  SORBATE(20) 

COMMON /BATNAME/ SORBATE 
C 

DATA  SORBATE(I)  /  *(1)  OXYGEN*/ 

DATA  SORBATE(2)  /  *(2)  NITROGEN’/ 

DATA  SORBATE(3)  /  ’(3)  ETHANEV 
DATA  SORBATE(4)  /  ’(4)  PROPANE*/ 

DATA  SORBATE(5)  /  '(5)  METHANE'/ 

DATA  SORBATE(6)  /  *(6)  CARBON  DIOXIDE’/ 

DATA  SORBATE(7)  /  *(7)  ACETHYLENE*/ 

DATA  SORBATE(8)  /  *(8)  ETHENE*/ 

DATA  SORBATE(9)  /  *(9)  PROPENE*/ 

DATA  SORBATE(IO)  /  '(10)  N-BUTANE*/ 

DATA  SORBATE(1 1 )  /  '(1 1 )  CARBON  MONOXIDE*/ 

DATA  SORBATE(12)  /  *(12)  l-BUTANE'/ 

C 

BSD 
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APPENDIX  D:  On  Board  Oxygen  Generation  System  (OBOGS)  Simulator  Manual 


Summary 

This  manual  describes  the  operation  of  a  computer  code  that  solves  the 
adsorption/flow  equations  in  a  two  bed  PSA  (pressure  swing  adsorption)  system  as 
described  in  Beaman,  Healey,  and  Werlin  (1983),  and  Beaman  (1985).  The  model  for  the 
beds  assumes  isothermal  and  isobaiic  columns,  negligible  radial  gradients,  negligible  axial 
dispersion,  and  that  convective  terms  dominate  temporal  terms  in  the  gas  phase  equations. 
Modified  Langmuir  isotherms  are  used,  and  can  be  coupled  using  the  Ideal  Adsorbed 
Solution  Theory  (LAST)  of  Myers  and  Prausnitz  (1965).  Because  the  model  was 
developed  for  oxygen  enrichment  of  air,  a  common  mass  transfer  coefficient  was  used  for 
oxygen  and  nitrogen.  Argon  and  trace  gases  in  air  have  been  neglected. 

As  reported  by  Beaman  (1985),  the  model  has  been  successful  in  matching  the 
behavior  of  a  small  two  bed  OBCXjS. 
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Introduction 

Beaman,  et  al.  (1983),  developed  isotherms  and  bed  equations  for  oxygen  enrichment 
of  air  using  zeolite  5A.  Beaman  (1985)  solved  these  equations  for  a  two  bed  OBOGS  and 
compared  the  simulations  to  experiments,  with  good  results.  Unfortunately,  extensions 
and  modifications  to  the  original  code  resulted  in  an  unreliable  and  inconvenient  program. 
The  original  program  employed  hard  wired  parameters  with  limited  abilities  for  users  to 
change  parameters  interactively.  Recompilation  of  the  code  was  often  necessary. 

Therefore,  a  new  program  was  written  to  implement  Beaman’s  model.  This  code 
uses  data  files  to  describe  both  bed  characteristics  and  nm  time  parameters.  Parameters  can 
be  changed  interactively  in  the  program,  <x  they  can  be  changed  in  a  standard  file  editor. 
The  code  allows  for  multiple  bed  zones  and  step  changes  in  boundary  conditions.  Bed 
velocity  and  gas  composition  profiles  can  be  ouqiut  at  any  time.  Also,  runs  can  be  restarted 
after  normal  tennination  (or  can  be  restarted  from  an  intermediate  velocity  and  conqx>sition 
profile)  in  order  to  extend  the  run  if  the  initial  simulation  time  was  not  long  enough. 

The  program  was  written  in  Vax  FORTRAN  and  runs  under  VMS.  Graphics  output 
was  not  included  in  the  code  (intentionally)  due  to  the  numerous  differences  that  exist  in 
computing  packages,  graphics  packages,  and  terminals,  even  at  a  single  site.  However,  the 
program  can  be  SPAWNed  in  a  DCL  file  on  the  Vax,  so  that  user  written  output  conversion 
codes  can  be  run  to  generate  graphics  output  immediately  following  execution  of  the 
OBOGS  model.  These  operatic  s  can  be  performed  in  a  DCL  command  (.COM)  file. 

This  manual  contains  details  of  program  structure,  the  main  sections  of  code,  the 
COMMON  blocks  used,  and  an  explanadtm  of  the  PARAMETER  statements  used  to 
dimension  the  problem.  Usage  notes,  an  example  run,  and  detailed  descriptions  of  each 
subroutine  are  also  included. 
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Program  Structure 

Figure  1  is  a  simplified  flow  chart  of  program  BINKLEY,  the  OBOGS  simulator. 
Lines  on  the  chart  indicate  calls;  returns  are  always  back  to  the  calling  routine  and  no 
subroutine  in  the  chart  calls  any  routine  on  the  same  level  or  above.  The  dotted  line  from 
ISOTHM  represents  calls  made  only  in  the  case  of  coupled  isotherms.  Reading  I^t  to  right 
in  a  level  generally  corresponds  to  the  order  the  subroutines  are  called.  Details  of  the 
routines  are  presented  later. 

From  the  flowchart,  three  main  sections  can  be  found;  the  data  editing  section,  the 
main  processor,  and  the  utility  routine  section.  Subroutines  YES,  EXTADD,  FILCHK, 
DATE,  TIME,  and  XGETPAM  are  each  used  by  several  higher  level  routines  and  are 
therefore  designated  utility  routines.  Only  XGETPAM  is  specific  to  BINKLEY;  the  others 
perform  generic  functions.  The  utility  routines  appear  in  the  bottom  two  tiers  of  the 
flowchart. 

The  data  editing  section  is  all  those  routines  from  STARTUP  down  through 
KTCORR.  These  routines  control  all  the  data  manipulation  and  set  up  the  run.  The  usct 
can  quit  the  simulator  after  editing  the  data  without  mnning  the  actual  simulaticm. 

The  main  processor  section  consists  of  all  the  routines  from  PROC  down  through 
VALVE.  These  routines  actually  solve  the  flow  and  adsorption  equations,  as  well  as  print 
results.  PROC  loops  until  the  simulation  ends,  and  the  final  bed  profiles  are  ouq>ut  by 
BINKLEY,  through  SNAPOUT,  to  the  warm  start  file  (START.WRM). 

Data  Editing 

Data  are  modified  through  STARTUP  and  subsequent  routines.  For  a  normal  (not  a 
warm  start)  run,  STARTUP  calls  BEDDAT  to  prompt  the  user  for  a  .MSV  file  that 
describes  bed  parameters.  This  input  file  is  opened  as  UNIT  8.  After  getting  a  file  name, 
the  routine  calls  PREAD  to  read  all  the  bed  parameters  and  then  calls  the  routines  that 
modify  and  display  the  information  in  the  .MSV  file.  CCNG  is  the  routine  that  changes  the 
comment  section  of  the  data  seL  Five  comment  lines  can  be  used  to  describe  the  data  set. 
VPCNG  changes  the  valve  parameters  (orifice  diameters  and  discharge  coefficients).  Valve 
numbers  arc  shown  in  Figure  2,  a  schematic  of  the  OBCX3S  being  simulated.  Valve  #1  is 
the  supply  gas  valve;  valve  #2  is  the  exhaust  valve;  and  valve  #3  is  the  bypass  orifice. 
ZCNG  changes  the  zone  specific  parameters  of  the  beds.  Each  bed  has  been  allotted  a  total 
of  NZ  zones.  NZ  is  a  PAIiAr.-IETER  set  equal  to  five  in  the  original  code.  Each  zone  can 
have  a  different  diameter,  void  fraction,  diffusion  coefficient,  and/or  isotherm  coefficients. 
Zone  temperatures  are  shown  on  zone  menus,  but  they  are  only  used  in  temperature 
correlations  for  the  isotherm  coefficients  (KTCORR)  because 
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BINKLEY 


YES  EXTAOD  FLCHK  DATE  TME 


I 
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Figure  1,  Simplified  Simulator  Flowchart 
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Exhaust 


Figure  2.  Bed  Schematic  Showing  Valve  Numbers, 
Zones,  and  Sign  Convention  for  Axial  Distance 
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of  the  isothermal  bed  assumption  The  temperature  of  the  first  zone  is  used  as  the 
temperature  in  all  flow  calculations  in  all  zones. 

After  changing  (or  viewing)  data,  the  user  must  save  the  data.  Saving  under  the  same 
name  causes  the  old  version  to  be  DELETED;  saving  under  a  new  name  creates  a  new  data 
set  while  retaining  the  old.  UNIT  8  is  closed. 

Upon  return  from  BEDDAT,  STARTUP  calls  RUNTBL,  which  prompts  for  a 
filename  again.  This  file  is  a  .TBL  file,  which  controls  run  time  parameters  such  as  space 
step  size,  time  step  size,  “snap  shot”  times  (when  bed  profile  data  ate  output),  and  step 
changes  in  inlet  pressure,  exhaust  pressure,  cycle  time,  product  flowrate,  and  inlet  oxygen 
concentration.  TP  ARAM  changes  the  parameter  values.  CCNG  modifies  file  comments, 
as  above.  Files  must  be  saved  on  exit  as  in  BEDDAT,  above.  The  .TBL  Ele  is  opened  as 
UNIT  8  and  closed  on  exit. 

After  calling  BEDDAT  and  RUNTBL,  the  user  can  quit  without  running  the 
simulation.  If  the  user  continues,  STARTUP  performs  some  unit  conversions,  adjusts  the 
space  step  size  to  yield  an  equally  spaced  mesh  along  the  bed  length,  and  initializes  the 
adsorbed  gas  arrays  before  return  to  BINKLEY. 

If  the  run  is  a  warm  start,  STARTUP  calls  WRMST  to  read  parameters  from  the 
highest  numbered  version  of  START.WRM.  ADSREAD  actually  reads  the  file.  Again, 
the  input  file  is  UNIT  8.  The  user  is  told  the  last  simulation  time  from  the  previous  run  and 
prompted  for  a  new  final  value.  WRMST  uses  the  filenames  read  by  ADSREAD  to  obtain 
bed  and  run  time  parameters  through  RUNTBL  and  BEDDAT  (where  interactive  requests 
are  suppressed).  The  warm  start  capability  has  been  included  mainly  to  allow  runs  to 
obtain  steady  state;  therefore,  the  user  cannot  modify  data  files  in  a  warm  start  However, 
parameters  in  the  data  files  could  be  modified  with  a  standard  file  editor  before  the  warm 
start.  The  warm  start  feature  can  also  be  used  to  start  runs  from  intermediate  bed  profile 
output  (snap  shots).  This  will  be  detailed  below. 

Both  the  ,MSV  and  .TBL  files  are  formatted  FORTRAN  output  files.  While 
changing  the  values  in  a  free  format  data  file  is  easier,  knowing  which  values  to  change  is 
more  difficult.  A  directoiy  full  of  data  files  without  explanatory  information  is  a  directory 
full  of  garbage.  Thus,  the  formatted  file  style  is  used.  This  is  an  important  point  to 
consider  when  modifying  files  with  a  standard  file  editor. 

Finally,  it  is  important  to  note  that  ‘Y'  or  ‘y’  (fit  any  string  beginning  with  these 
letters)  are  considered  affirmative  responses  to  yes/no  questions.  All  other  responses  are 
assumed  to  be  negative  responses,  Also,  all  interactive  numerical  response  requests  arc 
free  format  reads  and  the  entire  program  will  crash  if  non-numerical  data  are  input.  UNIT 
1  is  opened  in  STARTUP  as  PSA.DAT,  the  main  output  file  (product  oxygen 
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concentration,  total  inlet  mass  rate,  and  product  oxygen  mass  rate  as  functions  of  time). 
UNIT  2  is  opened  as  START.WRM,  which  will  conudn  the  final  bed  conditions  (for  each 
bed)  as  a  function  of  position. 

Main  Processor 

The  main  processor  performs  the  bed  equation  calculations.  PROC  coordinates  the 
activity  of  this  section  of  code.  Tlie  time  varying  input  parameters  are  obtained  through 
TGETPAM.  GETCYC  determines  the  inlet  pressure  for  each  bed,  depending  on  the  cycle 
time  and  the  elapsed  simulation  time.  EQUIL  calculates  the  interfacial  concentrations 
(CINT02  and  CINTOT)  from  the  adsorbed  phase  concentrations.  It  also  calculates 
CINTINT  and  BCINT,  which  are  integrals  used  in  BEDP  and  FINDU.  BEDP  solves  the 
equations  that  couple  the  pressures  in  the  beds  in  order  to  find  those  pressures.  FINDU 
determines  the  velocity  profile  in  the  bed  by  integrating  equation  (5)  in  Beaman,  et  al. 
(1983);  FINDFLX  calculates  the  total  flux  and  the  oxygen  flux  through  the  bed  from 
equations  (1 1)  in  that  paper.  PLENUM  models  the  OBOGS  plenum  as  a  two  stage  mixer 
with  time  constants  determined  from  half  the  total  plenum  volume.  INTTIM  integrates  the 
adsorbed  phase  concentrations  in  time  using  a  forward  difference  approximation  for  the 
time  derivatives.  Finally,  SNAPOUT  outputs  the  bed  velocity,  adsorbed  phase 
concentration,  and  gas  phase  oxygen  mole  fraction  profiles  at  the  times  set  in  RUNTBL  for 
snap  shot  output. 

The  details  of  the  PROC  section  of  code  are  not  as  important  as  the  details  of  the  data 
editing  section  in  operating  the  model.  Therefore,  these  details  are  deferred  to  the 
subroutine  descriptions  below. 

Utility/Post  Processing 

Six  of  the  routines  in  the  codes  are  considered  utility  routines;  YES,  EXTADD, 
FILCHK,  DATE,  TIME,  and  XGETPAM.  Of  these,  only  four  arc  included  in  the  source 
listing  because  DATE  and  TIME  are  Vax  FORTRAN  subroutines  for  the  system  date  and 
time.  YES  classifies  a  response  as  affirmative  (‘y’  or  ‘Y’)  or  negative  (all  other  characters) 
and  returns  a  logical  variable  that  is  .TRUE,  for  an  affirmative  response.  EXTADD  adds 
an  extension  to  a  file  name.  FILCHK  checks  to  see  if  a  file  already  exists  in  a  directory. 

XGETPAM  is  the  only  utility  routine  specific  to  the  simulator.  This  routine  is  called 
to  find  bed  parameters  as  a  function  of  total  bed  distance  or  zone  number. 

SNAPOUT  is  the  only  post  processing  routine.  It  is  called  by  BINKLEY  to  output 
bed  profiles  after  normal  execution  is  ended  in  PROC.  An  example  post  processor  (run  as 
a  separate  program  after  the  simulator)  is  included  after  the  listing  of  the  simulator. 
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PARAMETERS  in  the  Simulator  5 

The  following  parameters  control  the  dimensions  of  the  problem:  Q 

MAXLUMP - The  maximum  number  of  lumps  allowed  in  a  bed  plus  1 

MAXSTPS - The  maximum  number  of  step  changes  in  the  time  varying 

input  variables 

Nz - The  maximum  number  of  zones  in  a  bed 

NZPl - The  maximum  number  of  zones  in  a  bed  plus  1  I 

COMMON  Blocks  | 

The  following  COMMON  blocks  occur  in  the  code:  i 

/BOAT/  BEDD(NZ),  ZONEL(NZ),  DIFF(NZ),  VOIDF(NZ),  TZONE(NZ), 

ZONEKA(NZ),  ZONEKB(NZ),  ZONEB(NZ),  NZONEJFAREA(NZ), 

BBETA(NZ) 

/BDAT2/  VALVB,  VALVO,  VALVS,  VOLPLEN 
/EQFCN/  ALPHA,  FRACN2 

/FPRESS/  PBEDI,  CONV,  TEMPP,  RMW(2,2),  FACIN,  NNBD,  QZ(2), 

QL(2),  WBRMOL,  PINJ,  CCINT(2).  CBCINT(2)  I 

/GASES/  02MW,  RN2MW,  RGAS 1 
/INIT/  PATM,  TEMPI,  02BLKD 
/PLEN/  Y02,Y02M1 

/RDAT/  RBFLOW(MAXSTPS,2),  R02IN(MAXSTPS,2), 

RPSUP(MAXSTPS,2),  RPOUT(MAXSTPS,2),  RTCYC(MAXSTPS,2), 
SNAPTIMCMAXSTPS,2) 

/RDAT2/  DELTAX,  DELTAT,  SIMTIM,  LUMPS,  LUMPSl,  NTIM 
/VLVCON/  CONSTl,  CONST2,  CVCP,  CRTTRAT 
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Usage  Notes 

This  section  mentions  some  of  the  miscellany  to  consider  when  running  the  model. 

Initial  conditions  for  the  model  are  air  saturated  beds  (equilibrium)  at  atmospheric 
(1*ATM)  pressure.  Feed  is  binary  (oxygen  and  nitrogen).  Supply  pressure  starts  on  bed 
number  one.  The  beds  are  identical. 

OBOGS2.EXE  is  the  model  with  uncoupled  isotherms.  OBOGSC-EXE  is  the  model 
with  coupled  isotherms.  The  source  code  itself  is  in  four  files:  BINKLEY.FOR  contains 
most  of  the  subroutines;  COUPISO.FOR  contains  tire  Beaman  deHned  isotherm  in 
ISOTHM  as  well  as  FEQl,  the  function  defined  in  equation  (22)  of  Beaman,  et  al.  (1983); 
1SOTHM.FOR  contains  the  uncoupled  Beaman  isotherm;  FALSEP,FOR  contains  the  false 
position  solver.  The  files  are  supplied  this  way  because  the  Vax  linker  is  a  single  pass 
linker.  If  the  coupled  isotherm  case  is  chosen,  FALSEP  must  appear  after  ISOTHM  in  the 
link  list.  LINK2.COM  will  link  the  uncoupled  isotherm  routines;  LINKC.COM  will  link 
the  coupled  isotherm  routines. 

Other  files  included  with  the  simulator  are  example  data  sets,  output,  and  a  post 
processor,  ThedatasetsareEXl.MSV,  EXl.TBL,  andEX2.TBL.  These  sets  should  be 
used  to  create  new  data  sets. 

The  output  files  are  PSA.DAT,  START.WRM,  and  a  snap  shot  file,  SNAP04.DAT. 
Snap  shot  files  are  SNAPXX.DAT,  there  XX  is  the  number  selected  for  the  snap  shot  unit 
in  RUNTBL. 

The  post  processor  PLOTPSA.FOR  has  been  included  as  a  guide  to  reading  the 
output  files.  It  is  a  plotting  routine  and  uses  library  software  at  the  University  of  Texas  at 
Austin, 

Also  note  that  the  screen  is  UNIT  6;  therefore,  no  SNAPOUT  output  should  ever  be 
sent  to  this  unit. 
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Examples 


Example  Run 

The  following  is  an  example  input/output  session  that  includes  some  data  editing  in 

starling  a  simulation: 

$  RUN  OBOGS2 

Welcome  to  the  OBOGS  simulator 
This  version  completed  in  Aprils  1988 


N 


Is  this  a  warm  start? 


This  is  the  program  that  reads  and  modifies  data  files  for 
the  OBOGS  simulator  (APR  1338) 

Please  enter  the  name  of  the  file  to  be  read 

Modified  files  can  be  saved  under  a  different  name  later 
The  filename  should  be  seven  or  less  characters  and  the 
extension 

should  be  MSV 

(do  NOT  Include  the  extension  here) 

BEA1985 

Do  you  want  to  modify  BEA1985.MSV? 

Y 


Modify  comment  lines 

OBOGS  Simulation  29-MAR-88  08:12:32  Data  From  BEA1985.MSV 

This  is  a  data  file  for  the  F-16  OBOGS  by  Bendix. 

It  is  derived  from  the  hard-wired  defaults  in  the 
simulator  by  Brian  Yang.  This  set  was  input  by 
Glenn  Munkvold,  4/19/87.  This  run  is  an  attempt 
to  duplicate  Beaman's  1985  results. 

Do  you  want  to  modify  the  data  comments? 

Y 

Comment  changes;  After  each  line  of  comments  you  have  four  choices: 

1.  Simply  type  a  new  comment  to  supercede  old  comment 

2.  Type  \  to  erase  a  comment  line 

3.  Type  +  immediately  followed  by  text  to  append  to  old  comment 

4 .  Type  S  to  leave  comment  unchanged 

This  is  a  data  file  for  the  F-16  OBOGS  by  Bendix. 

0 

It  is  derived  from  the  hard-wired  defaults  in  the 
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simulator  by  Brian  Yang.  This  set  was  input  by 
0 

Glenn  Munkvold,  4/19/87.  This  run  is  an  attempt 
0 

to  duplicate  Beaman's  1985  results. 

+Two  bed  zoneds 

This  is  a  data  file  for  the  F-16  0BCX5S  by  Bendix. 

It  is  derived  from  the  hard-wired  defaults  in  the 
simulator  by  Brian  Yang.  This  set  was  input  by 
Glenn  Munkvold,  4/19/87.  This  run  is  an  attempt 
to  duplicate  Beaman's  1985  results.  Two  bed  zones 
Do  you  want  to  modify  the  data  comments  further? 

y 

Comment  changes:  After  each  line  of  comments  you  have  four  choices: 

1 .  Simply  type  a  new  comment  to  supercede  old  comment 

2 .  Type  \  to  erase  a  comment  line 

3 .  Type  -f  immediately  followed  by  text  to  append  to  old  comment 

4 .  Type  0  to  leave  comment  unchanged 

This  is  a  data  file  for  the  F-16  OBOGS  by  Bendix. 

0 

It  is  derived  from  the  hard-wired  defaults  in  the 
0 

simulator  by  Brian  Yang.  This  set  was  input  by 
0 

Glenn  Munkvold,  4/19/87.  This  run  is  an  attempt 
0 

to  duplicate  Beaman's  1985  results.  Two  bed  zones 
+are  used. 

This  is  a  data  file  for  the  F-16  OBOGS  by  Bendix. 

It  is  derived  from  the  hard-wired  defaults  in  the 
simulator  by  Brian  Yang.  This  set  was  input  by 
Glenn  Munkvold,  4/19/87.  This  run  is  an  attempt 
to  duplicate  Beaman's  1985  results.  Two  bed  zones  are  used. 

Do  you  want  to  modify  the  data  comments  further? 
n 


Modify  valve  paramters  i 

* 

Valve  Parameter  Changes  J 

Enter  number  to  change  parameter  j 

Enter  zero  to  exit  I 


Valve 

Diameter (cm) 

Discharge  Coeff 

) 

Bypass 

1. 

0.1905 

2, 

0.6000 

1 

Supply 

3. 

0.7777 

4. 

0.7000 

! 

Outlet 

5. 

1.1143 

6. 

0.7000 

i 

Plenum 

Volume= 

0.180E-02 

(cubic 

meters) 

i 

4 

8. Number  of  Bed  2ones=  2  (maximum  is  5)  • 

Enter  number  (zero  to  exit) :  ’ 

0  I 


i 
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Modify  zone  specific  parameters 

Enter  zone  #  (zero  to  exit) 

1 


Zone  Parameter  Changes 

Enter  number  to  change  parameter 
Enter  zero  to  exit 


1 .  Zone  #  1 

2.  Bed  Diameter-  13.2000  (cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (1/sec) 

5.  Void  Fraction-0.3700 

6 . Temperature-  25.00  (degrees  C) 

7. KA-  0.1928  ()cgmol  gas/lcgmol  ads,  02) 

8.  KB-  0.0687  (Icgmol  gas/Kgmol  ads,  N2) 

9. B-  3.059  (Icgmol  H2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

7 

7.KA-  0.1928  ()cgmol  gas/)igmol  ads,  02) 

Enter  new  value 

-1 


1. Zone  #  1 

2.  Bed  Diameter-  13.2000  (cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (1/sec) 

5.  Void  Fraction-0.3700 

6 . Temperature-  25.00  (degrees  C) 

7. KA-  -1,0000  ()cgmol  gas/)igmol  ads,  02) 

8.  KB-  0.0687  ()cgmol  gas/kgmol  ads,  N2) 

9. B-  3.059  (kgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

8 

8. KB-  0.0687  (Icgmol  gas/)cgmol  ads,  N2) 
Enter  new  value 

-1 

1. Zone  #  1 

2 . Bed  Diameter-  13.2000  (cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (1/sec) 

5.  Void  Fraction-0,3700 

6.  Temperature-  25.00  (degrees  C) 

7. KA-  -1,0000  ()cgmol  gas/kgmol  ads,  02) 

8.  KB-  -1,0000  (kgmol  gas/kgmol  ads,  N2) 

9. B-  3.059  (kgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

1 

l.Zone  #  1 
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Enter  new  value 


Zone  Parameter  Changes 

Enter  number  to  change  parameter 
Enter  zero  to  exit 


1 .  Zone  #  2 

2.  Bed  Diameter-  6.8000  <cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (1/sec) 

5.  Void  Fraction-0.3700 

6 . Temperature-  25.00  (degrees  C) 

7. KA-  0.1928  ()cgmol  gas/lcgmol  ads,  02) 

8.  KB-  0.0687  ()cgmol  gas/)cgmol  ads,  N2) 

9. B-  3.059  ()cgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

7 

7.KA-  0.1928  (kgmol  gas/jcgmol  ads,  02) 

Enter  new  value 

-1 

1 .  Zone  #  2 

2.  Bed  Diameter-  6.8000  (cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (1/sec) 

5.  Void  Fraction-0.3700 

6 . Temperature-  25.00  (degrees  C) 

7. KA-  -1.0000  (kgmol  gas/kgmol  ads,  02) 

8.  KB-  0.0687  (kgmol  gas/kgmol  ads,  N2) 

9. B-  3.059  (kgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

8 

8. KB-  0.0687  (kgmol  gas/kgmol  ads,  N2) 
Enter  new  value 

-1 

1. Zone  #  2 

2.  Bed  Diameter-  6.8000  (cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (1/sec) 

5.  Void  Fraction-0.3700 

6.  Temperature"  25.00  (degrees  C) 

7. KA-  -i.OOOO  (kgmol  gas/kgmol  ads,  02) 

8.  KB-  -1.0000  (kgmol  gas/kgmol  ads,  N2) 

9. B-  3.059  (kgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

1 

1 . Zone  #  2 

Enter  new  value 

1 
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Zone  Pareuneter  Changes 

Enter  number  to  change  parameter 
Enter  zero  to  exit 


1. Zone  #  1 

2.  Bed  Diameter^  13.2000  (cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (1/sec) 

5.  Void  Fraction-0.3700 

6.  Temperature-  25.00  (degrees  C) 

7. KA-  0.1928  ()cgmol  ga3/)cgmol  ads#  02) 

8.  KB-  0.0687  ()cgmol  gas/kgmol  adS/  N2) 

9. B-  3.059  ()cgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

1 

l.Zone  #  1 

Enter  new  value 

2 


Zone  Parameter  Changes 

Enter  number  to  change  parameter 
Enter  zero  to  exit 


1 .  Zone  #  2 

2 . Bed  Diameter-  6.8000  (cm) 

3.  Zone  Length-  39.4000  (cm) 

4.  Diffusion  Coefficient-  200.0000  (l/sec) 

5.  Void  Fraction-0.3700 

6 . Temperature-  25.00  (degrees  C) 

7. KA-  0.1928  (Itgmol  ga3/)tgmol  ads,  02) 

8.  KB-  0.0687  (kgmol  gas/kgmol  ads,  N2) 

9. B-  3.059  (kgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
Enter  number  (zero  to  exit) : 

0 


Do  you  want  to  go  back  for  more  changes? 
N 


Do  you  want  to  save  the  data  as  BEA1985.MSV? 

N 

Enter  the  new  seven  letter (max)  filename  without  any  extension 
EXl 

The  file  EXl  .MSV 

does  not  exist 
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Therefore,  the  data  can  be  stored  on  EXl  .MSV 


This  is  RUMTBL,  which  reads  and  modifies  data  files  for 
the  OBOGS  simulator  (APR  1988) 


Please  enter  the  name  of  the  file  to  be  read 

Modified  files  can  be  saved  under  a  different  name  later 
The  filename  should  be  seven  or  less  characters  and  the 
extension 

should  be  TBL 

(do  NOT  Include  the  extension  here) 

BEA1985 


)C 


Do  you  want  to  modify  BEA1985.TBL? 
Run  Table 


Modify  comment  lines 

OBOGS  Simulation  29-MAR-88  08: 17: 27  Data  From  BEA1985.TBL 

This  is  a  simple  run  for  30  SLPM  breathing  rate,  30  sec-  run. 

Created  by  Glenn  Munkvold,  14  Jan  1988 


Do  you  want  to  modify  the  data  comments? 

Y 

Comment  changes:  After  each  line  of  comments  you  have  four  choices: 

1.  Simply  type  a  new  comment  to  supercede  old  comment 

2.  Type  \  to  erase  a  comment  line 

3.  Type  +  immediately  followed  by  text  to  append  to  old  comment 

4 .  Type  0  to  leave  comment  unchanged 

This  is  a  simple  run  for  30  SLPM  breathing  rate,  30  sec-  run, 

This  is  a  simple  run  for  30  L  SLPM  breathing  rate,  35  sec.  run. 
Created  by  Glenn  Munkvold,  14  Jan  1988 
0 

0 

6 

3 

This  is  a  simple  run  for  30  SLPM  breathing  rate,  35  sec.  run. 
Created  by  Glenn  Munkvold,  14  Jan  1988 


Do  you  want  to  modify  the  data  comments  further? 
n 

1. Space  Step  Size=  1.500000  (cm) 

2. Time  Step*  0.050000  (sec) 

3. Simulation  Duration*  30.0000  (seconds) 

4.  Number  of  Output  Points=  100. 

5.  Product  Flowrate 


OBOGS  Manual 


199 


(Initially  30.00  STD  1pm) 

6. Inlet  Oxygen  Concentration 

(Initially  0.2100  mole  fraction) 

7 . Supply  Pressure 

(Initially  0.308200  MPa,  absolute) 

8. Outlet  Pressure 

(Initially  0.101300  MPa,  absolute) 

9. Cycle  Time 

(Initially  10.7000  seconds) 
lOSnap  Shots 

(Initially  at  O.lOOOE+07  seconds) 

Enter  number  (zero  to  exit) : 

3 

Simulation  Time  (seconds) 

Current  value**  30.0000 
Enter  new  value 

35 

1. Space  Step  Size*  1.500000  (cm) 

2. Time  Step*  0.050000  (sec) 

3. Simulation  Duration*  35.0000  (seconds) 

4.  Number  of  Output  Points*  100. 

5.  Product  Flowrate 

(Initially  30.00  STD  1pm) 

6. Inlet  Oxygen  Concentration 

(Initially  0.2100  mole  fraction) 

7. Supply  Pressure 

(Initially  0.308200  MPa,  absolute) 

8. Outlet  Pressure 

(Initially  0.101300  MPa,  absolute) 

9. Cycle  Time 

(Initially  10.7000  seconds) 
lOSnap  Shots 

(Initially  at  O.lOOOE+07  seconds) 

Enter  number  (zero  to  exit) : 


10 

Snap  Shot  Unit  (>3) 

Time 

1.  O.OOOOE+00 

0.1000E+07 

2.  O.OOOOE+00 

0.1000E+07 

3.  O.OOOOE+00 

O.lOOOE+07 

4.  O.OOOOE+OO 

O.lOOOE+07 

5.  O.OOOOE+OO 

0.1000E+07 

Enter  number  to  change  parameter 
Enter  zero  to  exit 

1 

Enter  new  parameter  value 
4 

Enter  corresponding  start  time  (sec 


15 

1,  0.4000E+01 

0.1500E+02 

2.  O.OOOOE+OO 

O.lOOOE+07 

3.  O.OOOOE+OO 

O.lOOOE+07 

4.  O.OOOOE+OO 

O.lOOOE+07 

5.  O.OOOOE+OO 

0.1000E+07 

Enter  number  to  change  parameter 
Enter  zero  to  exit 
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1.  space  Step  Si2e=  1.500000  (cm) 

2.  Time  Step-  0.050000  (sec) 

3. Simulation  Duration-  35.0000  (seconds) 

4.  Number  of  Output  Points-  100. 

5.  Product  Flowrate 

(Initially  30.00  STD  1pm) 

6. Inlet  Oxygen  Concentration 

(Initially  0.2100  mole  fraction) 

7. Supply  Pressure 

(Initially  0.308200  MPa,  absolute) 

8. Outlet  Pressure 

(Initially  0.101300  MPa,  absolute) 

9. Cycle  Time 

(Initially  10.7000  seconds) 
lOSnap  Shots 

(Initially  at  0.1500E+02  seconds) 

Enter  number  (zero  to  exit) : 

0 


Do  you  want  to  save  the  data  as  BEA1985.TBL? 

N 

Enter  the  new  seven  letter (max)  filename  without  any  extension 
EXl 

The  file  EXl  .TBL 

does  not  exist 

Therefore,  the  data  can  be  stored  on  EXl  .TBL 
Data  files  are  edited 

Do  you  want  to  quit? 

N 

Please  wait;  TIME  -  1.799999 

Please  wait;  TIME  =  3.549998 

Please  wait;  TIME  =  5.250002 


Please  wait;  TIME  =  31.54980 

Please  wait;  TIME  -  33.29978 

Please  wait;  TIME  -  35.04975 

FORTRAN  STOP 
vms> 

Run  Time  Messages 

The  only  run  time  messages  are  the  ‘Please  wait;...’  messages  above  and  a  message 
from  BEDP  when  the  bed  pressures  are  not  found  after  twenty  iterations  of  the  main  BEDP 

loop. 

Input  Files 

EXl. TBL 

OBOGS  Simulation  29-MAR-88  08:19:00  Data  From  EXl  .TBL 

This  is  a  simple  run  for  30  SLPM  breathing  rate,  35  sec.  run. 

Created  by  Glenn  Munkvold,  14  Jan  1988 
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1.5000 


Space  Step  (cm) 

Current  value** 

Time  Step  (seconds) 

Current  value= 
Simulation  Time  (seconds) 
Current  value** 

Number  of  Output  Points 
Current  value- 
Breathing  Flow  (STD  1pm) 
0.3000E+02  0 

O.OOOOE+00  0 

O.OOOOE+00  0 

O.OOOOE+00  0 

O.OOOOE+00  0 

Inlet  02  (mole  fraction) 
0.2100E+00  0 

0.2100E+00  0 

0.2100E+00  0 

0.2100E+00  0 

0.2100E+00  0 

Supply  Pressure  (MPa,abs) 
0.3082E+00  0 

O.OOOOE+00  0 

O.OOOOE+00  0 

O.OOCOE+OO  0 

O.OOOOE+00  0 

Exhaust  Pressure  (MPa,abs) 
0.1013E+00  0 

O.OOOOE+OO  0 

O.OOOOE+00  0 

O.OOOOE+00  0 

O.OOOOE+OO  0 

Cycle  Time  (seconds) 
0.1070E+02  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

Snap  Shot  Unit  (>3) 
0.4000E+01  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 


0.0500 

35.0000 

100.0000 

Time  (sec) 
■OOOOE+OO 
,1000E+06 
,1000E+06 
,1000E+06 
,1000E+06 

Time  (sec) 

, OOOOE+OO 
.lOOOE+06 
,1000E+06 
,1000E+06 
,1000E+06 

Time  (sec) 

, OOOOE+OO 
,1000E+06 
.lOOOE+06 
.lOOOE+06 
.1000E+06 

Time  (sec) 
.OOOOE+OO 
.lOOOE+06 
.lOOOE+06 
.lOOOE+06 
,1000E+C6 

Time  (sec) 
.OOOOE+OO 
.1000E+06 
.lOOOE+06 
.lOOOE+06 
.1000E+06 

Time  (sec) 
.1500E+02 
.1000E+07 
.1000E+07 
.lOOOE+07 
.1000E+07 


EXl.MSV 

OBOGS  Simulation  29-MAR-88  08:17:18  Data  Prom  EXl  .MSV 

This  is  a  data  file  for  the  F-16  OBOGS  by  Bendix. 

It  is  derived  from  the  hard-wired  defaults  in  the 
simulator  by  Brian  Yang.  This  set  was  input  by 
Glenn  Munkvold,  4/19/87.  This  run  is  an  attempt 
to  duplicate  Beaman's  1985  results.  Two  bed  zones  are  used. 

Valve  Diameter (cm)  Discharge  Coeff 
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Bypass  0.1905  0.6000 

Supply  O.im  0.7000 

Outlet  1.1143  0.7000 

Plenum  Volume=  0.180E-02  (cubic  meters) 
Humber  of  Bed  Zones-  2  (maximum  is  5) 

Zone  #  1 

Bed  Diameter-  13.2000  (cm) 

Zone  Length-  39.4000  (cm) 

Diffusion  Coefficient-  200.0000  (1/sec) 

Void  Fraction-0.3700 
Temperature-  25.00  (degrees  C) 

KA-  0.1928  Ocgmol  gas/)cgmol  ads,  02) 

KB-  0.0687  (Icgmol  gas/)(.gmol  ads,  H2} 

B-  3.059  ()cgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 

Zone  #  2 

Bed  Diameter-  6.8000  (cm) 

Zone  Length-  39.4000  (cm) 

Diffusion  Coefficient-  200.0000  (l/sec) 
Void  Fraction-0.3700 
Temperature-  25.00  (degrees  C) 

KA-  0.1928  Ocgmol  gas/lcgmol  ads,  02) 

KB-  0.0687  ()cgmol  gas/)cgmol  ads,  H2) 

B=  3.059  ()cgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 


Output  Files 
PS  A. DAT 


OBOGS  Simulation  29-MAR-88  08:17:17  Data  Prom  EXl  .MSV 

This  is  a  data  file  for  the  F-16  OBOGS  by  Bendlx. 

It  is  derived  from  the  hard-wired  defaults  in  the 
simulator  by  Brian  Yang.  This  set  was  input  by 
Glenn  Mun)cvold,  4/19/87.  This  run  is  an  attempt 
to  duplicate  Beaman's  1985  results.  Two  bed  zones  are  used. 


Valve 

Bypass 

Supply 

Outlet 


Diameter (cm) 
0.1905 
0.7777 
1.1143 


Di.scharge  Coeff 
0.6000 
C.7000 
0.7000 


Plenum  Volume-  0.180E-02  (cubic  meters) 
Humber  of  Bed  Zones-  2  (maximum  is  5) 


(l/sec) 


Zone  #  1 

Bed  Diameter-  13.2000  (cm) 

Zone  Length-  39.4000  (cm) 

Diffusion  Coefficient”  200.0000  (l/sec) 
Void  Fraction-0.3700 
Temperature-  25.00  (degrees  C) 

KA-  0.1928  (Icgmol  gas/)cgmol  ads,  02) 

KB-  0.0687  ()cgmol  gas/)cgmol  ads,  N2) 

B-  3.059  Ocgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 

Zone  #  2 
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Bed  Diameter-  6.8000  (cm) 

Zone  Length-  39.4000  (cm) 

Diffusion  Coefficient-  200.0000  (1/sec) 

Void  Fraction-0.3700 
Temperature-  25.00  (degrees  C) 

KA-  0.1928  ()cgmol  ga8/)cgniol  ads,  02) 

KB-  0.0687  ()igmol  gas/lcgmol  ads,  N2) 

B-  3.059  ()cgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
OBOGS  Simulation  29-MAR-88  08:19:00  Data  From  EXl 

This  is  a  single  run  for  30  SLPM  breathing  rate,  35  sec.  run. 
Created  by  Glenn  Mun)(vold,  14  Jan  1988 


Space  Step  (cm) 

Current  value- 
Time  Step  (seconds) 

Current  value- 
simulation  Time  (seconds) 
Current  value- 
Number  of  Output  Points 
Current  value- 
Breathing  Flow  (STD  1pm) 
0.3000E+02  0 

O.OOOOEtOO  0 

O.OOOOEtOO  0 

O.OOOOEtOO  0 

O.OOOOE+OO  0 

Inlet  02  (mole  fraction) 
0,2100E+00  0 

O.aiOOEtOO  0 

0.2100E-)-00  0 

0.2100E-»-00  0 

0.2100E+00  0 

Supply  Pressure  (MPa,abs) 
0.3082E+00  0 

O.OOOOE-t-00  0 

O.OOOOE-t-00  0 

O.OOOOE+00  0 

O.OOOOE+00  0 

Exhaust  Pressure  (MPa,ab8) 


0.1013E+00  0 

0,OOOOE+O0  0 

O.OOOOE+00  0 

O.OOOOE+OO  0 

O.OOOOE+00  0 

Cycle  Time  (seconds) 
0.1070E+02  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

O.OOOOE+OO  0 

Snap  Shot  Unit  (>3) 
0.4000E+01  0 

O.OOOOE+OO  0 

O.OOOOB+00  0 

O.OOOOE+OO  0 


1.5000 

0.0500 

35.0000 

100.0000 

Time  (sec) 
.OOOOE+00 
.lOOOE+06 
.1000E+06 
.lOOOE+06 
.lOOOE+06 

Time  (sec) 
.OOOOE+OO 
.1000E+06 
.1000E+06 
.lOOOE+06 
.lOOOE+06 

Time  (sec) 
.OOOOE+OO 
.lOOOE+06 
.1000E+06 
.lOOOE+06 
.lOOOE+06 

Time  (sec) 
.OOOOE+OO 
.lOOOE+06 
.lOOOE+06 
.lOOOE+06 
.lOOOE+06 

Time  (sec) 
.OOOOE+OO 
.lOOOE+06 
.lOOOE+06 
.1000E+06 
.lOOOE+06 

Time  (sec) 
.1500E+02 
.lOOOE+07 
.lOOOE+07 
.lOOOE+07 
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.TBL 


O.OOOOE+00 
OBOGS  Output 
Time 
Seconds 
0.3500 
0.7000 
1.0500 


02  Mole 
Fraction 
0.210136 
0.210817 
0.212112 


O.lOOOE+07 

02  Mass 
Out  g/a 
0.1501 
0.1506 
0.1515 


Total  Mass 
In  g/s 
23.9619 
23.9619 
23.9619 


33.9498  0 
34.2998  0 
34.6498  0 
34.9998  0 


439622  0. 
437603  0. 
437024  0. 
437904  0. 


3140 

22.5666 

3126 

21.1749 

3122 

19.3181 

3128 

17.0322 

START.WRM 

OBOGS  Simulation  29-MAR-88  08:17:18  Data  From  EXl  .MSV 

This  is  a  data  file  for  the  F-16  OBOGS  by  Bendix. 

It  is  derived  from  the  hard-wired  defaults  in  the 
simulator  by  Brian  Yang.  This  set  was  input  by 
Glenn  Munkvold,  4/19/87.  This  run  is  an  attempt 
to  duplicate  Beaman's  1985  results.  Two  bed  zones  are  used. 


Valve  Diameter (cm) 

Bypass  0.1905 

Supply  0.7777 

Outlet  1.1143 

Plenum  Volume-  0.180E-02 


Discharge  Coeff 
0.6000 
0.7000 
0.7000 

(cubic  meters) 


Number  of  Bed  Zones-  2  (maximum  is  5) 


Zone  #  1 

Bed  Diameter-  13.2000  (cm) 

Zone  Length-  39.4000  (cm) 

Diffusion  Coefficient-  200.0000  (1/sec) 

Void  Fraction-0.3700 
Temperature-  25.00  (degrees  C) 

KA-  0.1928  ()cgmol  gas/)(gmol  adsr  02) 

KB-  0.0687  ()cgmol  ga8/)(gmol  ads,  N2) 

B-  3.059  (kgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 


Zone  #  2 

Bed  Diameter-  6.8000  (cm) 

Zone  Length-  39.4000  (cm) 

Diffusion  Coefficient-  200.0000  (1/sec) 

Void  Fraction-0.3700 
Temperature-  25.00  (degrees  C) 

KA-  0.1928  (kgmol  gas/)cgmol  ads,  02) 

KB-  0.0687  (kgmol  gas/kgmol  ads,  N2) 

B-  3.059  (kgmol  N2  ads/cubic  meter) 

KA,  KB  <0  are  calculated  from  temperature 
OBOGS  Simulation  29-MAR-88  08:19:00  Data  From  EXl  .TBL 

This  is  a  simple  run  for  30  SLPM  breathing  rate,  35  sec.  run. 
Created  by  Glenn  Munkvold,  14  Jan  1988 


I 
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Space  Step  <cm) 

Current  value- 
Time  Step  <seconds) 
Current  value- 
Simulation  Time  (seconds) 
Current  value- 
Number  of  Output  Points 
Current  value- 
Breathing  Flov#  (STD  1pm) 
0.3000E-i'02 
O.OOOOE+00 
O.OOOOE+00 
O.OOOOE+OO 
O.OOOOE+00 

Inlet  02  (mole  fraction) 

0.2100E+00 

0.2100E+00 

0.2100E+00 

0.2100E+00 

0.2100E+00 

Supply  Pressure  (MPa,abs) 

0.3082E-i-00 

O.OOOOEtOO 

O.0OOOE4-OO 

O.OOOOE-t-00 

O.OOOOE-t-00 


1.5000 

0.0500 

35.0000 

100.0000 

Time  (sec) 
0.0000E->-00 
O.lOOOE-t-OS 
O.lOOOE-l-06 
O.lOOOB-t-06 
O.lOOOE-t-06 

Time  (sec) 
O.OOOOE-t-00 
O.lOOOB-t’06 
0.1000E->^06 
O.lOOOE-t-06 
0.1000E<t-06 

Time  (see) 
O.OOOOE-fOO 
O.lOOOE-i-06 
O.lOOOEfOS 
O.lOOOE-t-OS 
O.lOOOB+06 


Exhaust  Pressure  (MPa^abs)  Time  (sec) 


0.1013E4-00 

O.OOOOEtOO 

O.OOOOE+OO 

O.OOOOE-fOO 

O.OOOOE-fOO 

Cycle  Time  (seconds) 

0.1070B-f02 

O.OOOOE-fOO 

O.OOOOE-fCO 

O.OOOOE-fOO 

O.OOOOE-fOO 

Snap  Shot  Unit  (>3) 

0.4000E-f01 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

Bed  Profiles.  Time- 


O.OOOOE-fOO 

O.lOOOB-fOS 

0.1000E-f06 

0.1000E-f06 

0.1000E-f06 

Time  (sec) 
O.OOOOE-fOO 
O.lOOOE-fOe 
O.lOOOE-fOS 
0.1000E-f06 
0.1000E-f06 

Time  (sec) 
0.1500E-f02 
0.1000E-f07 
0.1000E-f07 
0.1000E-f07 


O.OOOOE-fOO  0.1000E-f07 

Bed  Profiles.  Time-  34.9998  sec  Time  in  Cycle-  2.9500  sec 
Plenum  Vars:  Y02-  0.4379  Y02M1-  0.4586 

Run  on  29-MAR-88  at  08:20:03 
Bed#  1  Pressure-  0.2654E-f00  MPa 

Distance  02  Mole  Velocity  02  Ads  Tot  Ads 
)  (m)  Frac  (m/s)  ()igfflol/m3)  ()cgmol/ro3) 

1  O.OOOOE-fOO  0.2100  0.1089E-f01  0.117lE-f00  0.9961Ef00 

2  0.1515E-01  0.2115  0.1060E-f01  0.1180B+00  0.9957E-f00 

3  0.3031E-01  0.2132  0.1030E-f01  0.1189E-f00  0.9953E+00 

4  0.4546E-01  0.2150  O.lOOlE-fOl  0.1199E-f00  0.9949E+00 

5  0.6062E-01  0.2170  0.9714E+00  0.1210E-fOO  0.9944E-f00 
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50  0.7425B-«-0Q  0.6560  0.4924E-»-00  0.3618E>00 

51  0.7577E+00  0.7363  0.4397E+00  0.4096E+00 

52  O.7720E+OO  0.7378  0.4107E+00  0.4120E+00 

53  0.7880E-t-00  0.6890  0.3950E-t-00  0.3859E+00 

Bed#  2  Pressure-  0.1073E-t-00  MPa 


0.8167E+00 

0.7708E+00 

0.7725E+00 

0.8044E-t-00 


« 

1 

2 

3 

4 

5 


Distance 

(m) 

O.OOOOE+00 

0.1515E-01 

0.3031E-01 

0.4546E-01 

0.6062E-01 


02  Mole 
Frac 
0.1897  - 
0.1921  - 
0.1947  - 
0.1974  - 
0.2002  - 


Velocity 

(m/s) 

1285E+01 

1250E-»-01 

1215E+01 

1180E-t-01 

114SE-t-01 


02  Ads 
(kginol/m3) 
0.4244E-01 
0.4298E-01 
0.4356E-01 
0.4416E-01 
0.4479E-01 


Tot  Ads 
(kginol/m3) 
0.4799E+00 
0.4793B-t-00 
0.4787E+00 
0.4780E-«-00 
0.4774E+00 


50  0.7425E+00  0.4547 

51  0.7577E+00  0.5292 

52  0.7728E+00  0.6111 

53  0.7880E+00  0.6889 


7966E-)-00  0.1031E+00  0.4132E+00 
7229E+00  0.1197E+00  0.3915E+00 
6529E+00  0.1378E-I-00  0.3662E+00 
5939E+00  0.1549E+00  0.3403E+00 


SNAPXX.DAT 


Bed  Profiles.  Time-  15.0000  sec  Time  in  Cycle-  4.3000  sec 
Plenum  Vars;  Y02-  0.3357  Y02M1-  0.4059 

Run  on  29-MAR-88  at  08:19:25 
Bed*  1  Pressure-  0.3046E4-00  MPa 

Distance  02  Mole  Velocity  02  Ads  Tot  Ads 
*  <m)  Frac  (m/s)  <]cgmol/m3)  (kgmol/m3) 

1  O.OOOOE+00  0.2100  0.2984E+00  0.1337E+00  0.1099E+01 

2  0.1515E-01  0.2110  0.2926E-I-00  0.1344E-«-00  0.1099E->-01 

3  0.3031E-01  0.2122  0.2868Et00  0.1352E+00  0.1099E+01 

4  0.4546E-01  0.2136  0.2810E-t-00  0.1360E+00  0.1098B-^01 

5  0.6062E-01  0.2151  0.2751E+00  0.1370E+00  0.1098B+01 


50 

0.7425E+00 

0.2775 

0 

.4206E-»'00 

0.1770E+00 

0.1084BH-01 

51 

0.7577E+00 

0.2977 

0 

.4125E+00 

0.1905E+00 

0.1078E+01 

52 

0.7728E+00 

0.3434 

0 

.4006E4-00 

0.2207E+00 

0.1064E+01 

53 

0,7880E+00 

0.4163 

0 

.3835E+00 

0.2680E+00 

0.1038E+01 

Bed#  2  Pressure-  0 

« 

1015E+00  MPa 

Distance 

02  Mole 

Velocity 

02  Ads 

Tot  Ads 

# 

(m) 

Frac 

(m/s) 

(kgrool/m3) 

(kgmol/m3) 

1 

O.OOOOE+OO 

0.1942 

- 

.2438E400 

0.4123E-01 

0.4562E-)-00 

2 

0.1515B-01 

0.1967 

- 

.2431E-:-00 

0.4177E-01 

0.4556E+00 

3 

0,3031B-01 

0.1994 

- 

.2424E-t-00 

0.4233E-01 

0.4550E-f00 

4 

0.4546E-01 

0.2020 

- 

.2417E+00 

0.4289E-01 

0.4544B-f00 

5 

0.6062B-01 

0.2047 

- 

.2410E-fOO 

0.4346E-01 

0.4538E-t-00 

50  0.7425E+00 

51  0.7577E+00 

52  0.7728E+00 

53  0.7880E+00 


0.5255 

0.5081 

0.4674 

0.4163 


6809E-»^00  O.lllSE+OO  0.3698E-t-00 
6917E+00  0.1086E+00  0.3727E+00 
7153E+00  0.1002E+00  0.3827E+00 
7452E+00  0.8936E-01  0.3966E+00 
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.a  I V  AJ I  A.  V  JLAJh/l  k'V 


v-s  UT«_  v-kvy  a 


Subroutine  Descriptions 


Main  Program  BINKLEY 

COMMON  Blocks 
/GASES/ 

/INIT/ 

/RDAT2/ 

/VLVCON/ 

Subroutines  Called 
PROC 
SNAPOUT 
STARTUP 

Description 

This  is  the  main  program.  It  calls  each  of  the  three  main  sections  of  code:  data 
editing,  the  main  processor,  and  the  post  processor  (SNAPOUT).  PARAMETERS  and 
many  of  (he  COMMON  variables  are  defined.  STARTUP  is  called  first,  then  PROC,  then 
SNAPOUT. 

ADSREAD 

COMMON  Blocks 
/PLEN/ 

Subroutines  Called 
NONE 

Description 

This  subroutine  reads  in  SNAPOUT  files,  as  warm  start  input  files. 

BEDDAT 

COMMON  Blocks 
/BOAT/ 

/BDAT2/ 

Subroutines  Called 
CCNG 
EXTADD 
FILCHK 
PREAD 
VPCNG 
YES 
ZCNG 

Description 

This  routine  calls  PREAD  to  read  the  .MSV  input  files,  and  provides  the  mechanism 
for  interactive  modification  of  the  input  parameters.  The  COMMON  blocks  /BDAT/  and 
/BDAT2/  are  loaded  here,  and  the  variables  in  those  COMMON  blocks  are  defined  in  this 
routine.  The  subroutine  has  two  modes:  normal  and  warm  start  The  warm  start  mode 
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disables  all  the  interactive  parts  of  BEDDAT  and  routines  below.  Normal  mode  allows  the 
user  to  change  parameters  interactively,  before  beginning  the  actual  simulation.  Parameters 
cannot  be  changed  during  the  simulation.  BEDDAT  also  calculates  the  flow  area  (FAREA, 
from  the  bed  diameter  and  void  fraction  e)  and  the  value  of  P  for  each  zone,  p  is  d(l-e)/e. 


BEDP 

COMMON  Blocks 
/BOAT/ 

/FPRESS/ 

/GASES/ 

Subroutines  Called 
FALSE? 

FINDP 

Description 

Subroutine  BEDP  finds  bed  pressures  using  equation  (10)  from  Beaman  (1985). 
This  equation  is  used  by  first  assuming  that  the  pressure  in  bed  #1  (PBED(l))  is  correct 
The  current  bed  pressure  in  bed  #2  (PBED(2))  is  used  as  a  first  guess  for  the  evaluation  of 
equation  (10).  This  equation  is  evaluated  as  function  FINDP. 


The  integrals 


are  evaluated  in  EQUIL; 


=  CINTINT(l) 


ED  #2 


=  CINTINT(2) 
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BCINT(l) 


=  BCINT(2) 


Ql  and  Qo  are  found  through  FINDP  calls  to  FINDQP  and  FINDQZ  with  bed 
pressures  as  loaded  into  COMMON  /FPRESS/. 

In  a  typical  sequence,  BEDP  takes  the  current  bed  pressures  and  loads  them  in 
/FPRESS/.  The  pressure  in  bed  #1  is  stored  as  FOLD.  FINDP  is  called  with  bed  #2 
pressure  to  End  the  residual  (RESIDl)  of  equation  (10)  (the  present  bed  pressures  will  not 
cause  equation  (10)  to  be  satisfied  because  the  adsorbed  phase  concentrations  have  been 
integrated  in  time;  i.e.,  the  bed  pressures  assumed  in  the  call  to  BEDP  are  actually  old 

1  values.  We  need  to  End  the  cunent  values  that  will  satisfy  the  equation).  A  new  guess  at 

bed  #2  pressure  is  made  by  multiplying  the  current  guess  (PJl)  by  (1.  •  RESIDl).  From 
the  new  guess  (PJ2),  a  new  residual  (RESID2)  is  found.  If  the  residuals  are  of  different 
signs,  then  the  pressure  in  bed  #2  that  satisEes  equation  (10)  has  been  bracketed. 

Therefore,  FALSER  is  called  to  End  the  correct  pressure  more  exactly  using  the  false 
position  algorithm.  If  the  residuals  ate  not  of  diEerent  sign,  RESIDl  and  PJl  are 
discarded  and  assigned  the  values  of  RESID2  and  PJ2.  A  new  RESID2  is  calculated  Eom 
a  new  guess  at  PJ2  (found,  as  before,  by  multiplying  PJl  by  (1.  -  RESIDl)).  This 
continues  until  the  proper  pressure  is  bracketed.  After  bed  #2  pressure  has  been  found,  the 
loop  is  executed  again,  with  bed  #2  pressure  assumed  correct,  and  RESIDl  and  RESID2 
now  being  calculated  through  guesses  at  bed  #1  pressure.  When  the  proper  bed  pressure 
has  been  bracketed,  FALSE?  is  called  again  to  finish  Ending  the  value  of  bed  #1  pressure. 
This  cunent  value  is  compared  to  FOLD,  the  value  of  bed  #1  pressure  when  the  routine 
was  originally  called.  If  the  relative  difference  in  these  values  is  within  a  preset  tolerance, 
the  proper  pressures  are  known.  If  the  relative  difference  is  too  great,  FOLD  is  assigned 
the  current  bed  #1  pressure,  and  we  loop  on  the  beds  again,  as  above,  assuming  bed  #1 
pressure  is  correct  and  guessing  at  bed  #2  pressure. 

After  the  proper  pressures  are  found,  inlet  mass  rates  (QZMASS),  inlet  velocities 
(U2£RO),  outlet  velocities  (UL),  and  average  total  bed  concentrations  (CAVG)  are  found. 
Figure  3  is  a  flowchart  of  the  pressure  calculations  in  BEDP, 

If  the  relative  tolerance  is  not  met  for  the  bed  pressure,  BEDP  exits  after  twenty 
iterations  of  the  beds  loop  and  writes  a  failure  message  to  the  screen. 
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CCNG 

COMMON  Blocks 
NONE 

Subroutines  Called 
DATE 
TIME 
YES 

Description 

This  subroutine  interactively  changes  and  saves  the  comment  lines  for  both  the  .MSV 
and  .TBL  files.  Comment  lines  can  be  ou^ut  without  modification  in  a  warm  start  without 
interactive  instructions.  The  date  and  time  of  a  run  are  also  recorded  and  output  Simple 
editing  functions  are  included  (comment  lines  can  be  superceded,  appended,  removed,  or 
left  unchanged  using  single  character  format  commands). 

COUPISO 

COMMON  Blocks 
/EQFCN/ 

Subroutines  Called 
FALSHP 

FEQl  (THROUGH  FALSEP) 

Description 

COUPISO  is  actually  the  name  of  the  file  that  contains  the  version  of  ISOTHM  that 
solves  the  Beaman  et  al.  (1983)  equation  (23)  for  the  coupled  isotherm  case.  Using  the 
lower  bound  mentioned  in  the  paper  and  an  upper  bound  of  Z=l,  FALSEP  is  called  with 
function  FEQl  as  argument  to  solve  for  the  int^acial  nitrogen  concentration  (CINTN2). 
The  interfacial  oxygen  concentration  (CINT02)  and  the  total  interfacial  concentration 
(CINTOT)  are  calculated  from  the  nitrogen  concentration.  Note  that  it  may  be  necessary  to 
run  with  a  shorter  time  step  for  the  coupled  isotherm  case.  The  shorter  time  step  and 
additional  calculations  cause  the  coupled  case  to  take  longer  to  run  than  the  uncoupled  case. 

DATE 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 

Description 

This  is  a  Vax  FORTRAN  subroutine  used  to  obtain  the  system  date.  Various  formats 
are  available,  depending  on  the  specific  date  routine  called  and  the  variable  type  passed. 
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EQUIL 

COMMON  Blocks 
NONE 

Subroutines  Called 
ISOTHM 
XGETPAM 

Description 

EQUIL  takes  the  current  adsorbed  phase  ctmcentrations  and  finds  the  corresponding 
interfacial  concentrations  from  the  equilibrium  isotherm.  The  BCINT  and  CINTINT 
integrals  (see  BEDP  description)  are  calculated.  BETACNT  is  also  calculated.  BETACNT 
is  used  in  calculation  of  velocity  profiles  in  FINDU,  as  is  defmed  as: 

BETACNT(J,IBED)  =  p  (Ax)-^-i4p^ 

where  j  is  a  space  lump  number  and  IBED  is  bed  number. 

The  calculations  are  done  through  all  zones  of  each  bed,  with  calls  to  XGETPAM  at 
zone  boundaries  to  get  appropriate  isotherm,  mass  transfer,  and  void  fraction  values. 

EXTADD 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 

Description 

This  routine  adds  an  extension  to  a  filename.  Essentially,  it  is  simply  a  character 
string  concatenation,  as  the  filename  and  extension  are  both  input.  The  completed  filename 
is  returned. 

FALSEP 

COMMON  Blocks 
NONE 

Subroutines  Called 

FUNCTION  NAME  PASSED  AS  ARGUMENT 
Description 

Given  the  name  of  an  EXTERNAL  function  and  two  initial  guesses  for  the  root  of  the 
function  (the  guesses  must  bracket  the  solution),  FALSEP  uses  the  false  position  algorithm 
to  find  the  root  of  the  equation.  The  function  must  be  constructed  such  that  its  value  will  be 
zero  for  a  solution  to  the  equation,  FALSEP  retums  after  meeting  an  absolute  error 
tolerance  or  after  exceeding  a  loop  limit. 
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FEQi  a 

COMMON  Blocks  | 

/EQFCN/  ■ 

Sitbroutines  Called 
NONE 

Description 

This  is  the  function  that  evaluates  equation  (23)  from  the  Beaman  et  al.  (1983)  paper 
for  the  coupled  isotherm  case.  It  is  called  by  FALSER.  See  the  COUPISO  description.  | 

FILCHK 

COMMON  Blocks  | 

NONE  I 

Subroutines  Called  I 

NONE  j 

Description  j 

Given  a  filename,  FILCHK  checks  to  see  if  the  file  already  exists  in  the  current  c 

directory,  A  logical  variable  is  returned  .TRUE,  if  the  file  already  exists.  h 

FINDFLX 

COMMON  Blocks  1 

/RDAT2/  1 

Subroutines  Called  y 

INTBKWD  5 

DMTFWD  ■ 

Description 

Given  the  velocity  distribution  (from  FINDU),  this  routine  calculates  the  oxygen  flux  | 

through  the  bed  according  to  equations  (1 1)  in  Beaman,  et  al.  (1983).  FINDFLX  classifies  Q 

the  case  according  to  the  value  of  the  input  parameter  NUZERO.  NUZERO  can  be  the  f 

lump  number  where  the  velocity  in  the  bed  is  zero  (positive  values)  or  a  flag  that  indicates  ^ 

the  type  of  flow  in  the  bed  (zero  or  negative  values).  INTBKWD  is  called  for  flow  ? 

backward  through  the  bed;  INTFWD  is  called  for  forward  flow  through  the  bed.  If  flow  is  f 

into  or  out  of  both  ends  of  the  bed,  both  INTFWD  and  INTBKWD  are  called.  See  FINDU  j 

description  for  a  table  of  NUZERO  values.  It  is  important  to  note  that  flux  integrations  j 

must  be  in  the  direction  of  flow  in  order  to  match  assumptions  made  in  solving  the  flux  ^ 

equations.  j 

FINDP  ; 

COMMON  Blocks  ' 

/FPRESS/  : 

/GASES/ 
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Subroutines  Called 
FINDQP 
FINDQZ 

Description 

This  function  is  used  in  calculation  of  the  bed  pressures.  See  the  BEDP  description 
for  an  overview  of  this  calculation.  FINDP  evaluates  the  residual  ot  equation  (10)  in 
Beaman  (1985),  and  is  called  by  FALSEP  as  well  as  BEDP. 

FINDQP 

COMMON  Blocks 
NONE 

Subroutines  Called 
VALVE 

Description 

This  function  returns  the  volume  flowrate  through  the  bypass  valve  at  the  current  bed 
pressure.  It  is  called  by  FINDP  in  evaluation  of  bed  pressures. 

FINDQZ 

COMMON  Blocks 
NONE 

Subroutines  Called 
VALVE 

Description 

This  function  returns  the  volume  flowrate  through  either  the  supply  or  exhaust  valve 
at  the  current  bed  pressure.  The  valve  selection  is  made  through  the  argument  NVLV. 
NVLV  is  one  for  the  supply  valve;  it  is  two  for  the  exhaust  valve.  This  distinction  is 
important  if  the  diameters  and/or  discharge  coefficients  of  these  valves  differ.  FINDQZ  is 
called  by  FINDP  in  evaluation  of  bed  pressures. 


FINDU 

COMMON  Blocks 
/RDAT2/ 

Subroutines  Called 
XGETPAM 


Description 

This  routine  spatially  integrates  equation  (1)  from  Beaman  (1985)  using  the 
trapezoidal  rule.  Once  the  bed  pressures  are  known,  the  volumetric  flowrates  at  each  end 
of  the  beds  are  known.  The  adsorbed  phase  concentrations  are  also  known,  so  it  is 


possible  to  calculate  the  velocity  profile  for  a  bed  as: 


Uj  =  Uj-l  + 


1  I  Ax 
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l■atm(fnu^lJ^U^Wlllfl WMT  nnwvnnfv  uv  m  iTM  wni  u'H  u«  » ><■.»«  n: 


BETACNT  is  calculated  in  EQUIL,  and  includes  a  bed  number  as  one  of  its  indices. 

It  is  necessary  to  modify  uj-i  by  a  ratio  of  zone  cross-sectional  areas  when  a  zone  boundary 
is  crossed.  This  must  be  done  to  ensure  volumetric  flow  continuity  across  the  area 
change. 

FINDU  also  calculates  initial  fluxes  in  the  bed,  if  necessary.  No  fluxes  are  calculated 
for  any  of  the  cases  below  whe.  e  NUZERO  is  negative.  If  NUZERO  is  non-negative,  its 
value  will  be  the  lump  number  that  corresponds  most  closely  to  the  zero  velocity  point  in 
the  bed.  In  this  case,  flow  is  either  into  or  out  of  both  ends  of  the  bed,  and  an  initial  flux  is 
necessary  for  FINDFLX  to  properly  integrate  the  flux  equations  (for  the  negative 
NUZERO  cases,  FINDFLX  can  use  inlet  or  outlet  velocities  to  determine  the  initial  flux). 


UL 

UZ 

NUZERO 

-,o 

-2 

■'+ 

+.0 

-1 

+ 

- 

+ 

- 

+ 

+ 

GETCYC 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 

Description 

This  subroutine  puts  supply  or  exhaust  pressure  on  the  beds,  depending  on  the  cycle 
time  and  elapsed  time  in  the  current  cycle.  Odd  half-cycles  have  supply  pressure  (PSUP) 
on  bed  #1  and  exhaust  pressure  (POUT)  on  bed  #2. 

INTBKWD 

COMMON  Blocks 
/RDAT2/ 

Subroutines  Called 
XGETPAM 

Description 

This  routine  integrates  the  flux  equation  in  the  negative  x  direction.  Arguments 
include  the  starting  lump  number  for  the  backwards  integration.  From  this  lump  number. 
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the  bed  parameters  are  determined  with  a  call  to  XGETPAM.  For  backward  axial 
integrations  through  the  bed,  calls  to  XGEFPAM  are  made  using  a  different  condition  than 
in  the  forward  direction  to  ensure  that  the  proper  bed  parameters  are  consistently  applied  for 
the  case  of  coincident  nodes  and  zone  boundaries.  The  program  uses  parameters  from  the 
left  side  of  zone  boundaries  coincident  with  nodes. 

INTFWD 

COMMON  Blocks 
/RDAT2/ 

Subroutines  Called 
XGETPAM 

Description 

This  subroutine  integrates  the  flux  equation  forward  through  the  bed.  Arguments 
include  the  starting  lump  number  for  the  integration.  Again,  this  lump  number  is  used  with 
a  call  to  XGETPAM  to  determine  the  proper  bed  parameters.  The  standard  conditions  are 
used  for  changing  parameters  at  zone  boundaries  (see  the  source  code).  The  program  uses 
the  parameters  from  the  left  side  of  zone  boundaries  that  are  coincident  with  nodes. 

INTTIM 

COMMON  Blocks 
/RDAT2/ 

Subroutines  Called 
XGETPAM 

Description 

This  routine  integrates  the  adsorbed  phase  concentrations  in  time  using  a  simple 
forward  difference  for  the  approximation  of  the  derivatives  with  respect  to  time. 
XGETPAM  is  called  fmd  the  proper  mass  transfer  coefficient  values. 

ISOTHM 

COMMON  Blocks 

NONE  (SEE  COUPISO) 

Subroutines  Called 

NONE  (SEE  COUPISO) 

Description 

This  subroutine  calculates  the  inierfaciai  concentrations  given  the  adsorbed  phase 
concentrations.  It  may  calculate  the  coupled  or  uncoupled  isotherms,  depending  on  the 
version  of  the  routine  used  (see  COUPISO  description).  The  isotherm  derived  by  Beaman, 
et  al.  (1983)  is  used,  A  relatively  straightforward  analysis  reveals  the  connection  between 
the  Beaman  isotherm  and  the  classical  Langmuir  isotherm.  Beaman’s  isotherm  is: 
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The  Langmuir  isotherm  is; 


Comparing,  we  find; 


kq,RTp 


and 

b  =  qsp 

Therefore,  if  the  parameters  of  the  Langmuir  isotherm  are  known  for  some  otho* 
gases,  the  model  can  be  used  to  model  these  gases  in  a  PSA  uitit  This  course  of  action  is 
fraught  with  risks,  however;  the  model  assumes  that  the  mass  transfer  coefficient  is  the 
same  for  both  components.  If  the  difference  between  mass  transfer  coefficients  is 
important,  the  results  of  using  this  model  to  simulate  PSA  operation  with  other  feed  gases 
may  be  useless.  Furthermore,  the  model  has  been  shown  to  work  well  for  the  case  of  high 
mass  transfer  coefHcient  (nearly  equilibrium  sqiaration).  Results  are  not  expected  to  be  as 
good  for  a  mass  transfer  dominated  system,  even  if  the  mass  transfer  coefficients  are  nearly 
equal. 

KTCORR 

COMMON  Bloch 
NONE 

Subroutines  Called 
NONE 

Description 

This  routine  uses  a  power  law  temperature  ccnrelation  from  some  unpublished  woik 
by  David  Walshak  for  the  temperature  dependence  of  the  oxygen  and  nitrogen  isotherm 
parameters  in  the  Beaman  model.  This  three  parameter  correlation  is  expected  to  woik  well 
for  interpolation,  and  therefore  should  only  be  used  for  temperatures  between  -50°C  and 
lOC’C.  The  value  for  b,  the  limiting  amount  of  nitrogen  adsorbed,  is  not  expected  to 
depend  on  temperature.  Note  that  a  two  parameter  correlation  is  possible  if  the  typical 
exponential  temperature  dependence  of  the  Henry  constant  is  used  in  the  Langmuir 
comparison  above.  For  this  case; 

K  = - - - 

koexpj^^jqsRTp 
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The  two  parameter  fit  has  been  found  and  proves  inferior  (acctHding  to  available  data) 
to  the  three  parameter  fit  used  in  KTCORR  for  interpolation.  The  divergence  of  the  power 
law  correlation  and  the  two  parameter  correlation  outside  the  above  mentioned  temperature 
range  emphasizes  that  the  correlation  in  the  program  must  only  be  used  within  the  stated 
temperature  limits. 

PLENUM 

COMMON  Blocks 
/PLEN/ 

Subroutines  Called 
NONE 

Description 

This  routine  models  the  outlet  plenum  on  the  OBOGS  unit  as  two  first  order  mixers  in 
series.  Half  the  plenum  volume  is  used  to  calculate  the  time  constant  for  each  mixer. 

PREAD 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 

Description 

PREAD  reads  in  all  the  .MSV  file  parameters. 

PROC 

COMMON  Blocks 
/BOAT/ 

/GASES/ 

/INIT/ 

/PLEN/ 

/RDAT2/ 

Subroutines  Called 
BEDP 
EQUIL 
FINDFLX 
FINDU 
GETCYC 
INTTIM 
PLENUM 
SNAPOUT 
TGETPAM 

Description 

PROC  controls  the  main  processing  of  the  simulator.  Table  headings,  final  bed 
profiles  (through  SNAPOUT),  and  concentrator  output  are  written.  The  amount  of  output 
generated  is  selected  by  the  user  in  a  .TBL  file  and  is  implemented  using  a  printing  cycle 


am 
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time.  A  message  is  also  written  to  the  screen  (giving  the  simulation  time  elapsed)  during 
execution  to  tell  the  user  that  the  program  is  still  ninning  and  making  progress.  PROC  calls 
subroutines  in  the  following  order;  TGETPAM,  GETCYC,  EQUIL,  BEDP,  FINDU, 
FINDFLX,  PLENUM,  SNAPOUT,  and  INTTIM.  SNAPOUT  is  only  called  once  from 
PKOC,  at  the  end  of  execution.  However,  the  call  is  before  the  call  to  INTTIM,  so  it 
appears  before  INTTIM  in  the  list  above. 

RUNTBL 

COMMON  Blocks 
/RDAT/ 

/RDAT2/ 

Subroutines  Called 
EXTADD 
FILCHK 
TPARAM 
TREAD 
YES 

Description 

This  subroutine  reads  .TBL  files  (through  TREAD)  and  modifies  the  run  time 
parameters  for  a  simulation.  C!OMMON  blocks  /RDAT/  and  /RDA'^  are  loaded  and  data 
sets  are  saved  before  exit  from  the  routine.  As  in  BEDDAT,  a  warm  start  causes  the 
interactive  sections  of  the  routine  to  be  disabled, 

SNAPOUT 

COMMON  Blocks 
/PLEN/ 

Subroutines  Called 
DATE 
TIME 

Description 

SNAPOUT  writes  the  bed  profiles  at  the  end  of  simulation  as  well  as  at  intermediate 
times  selected  in  the  .TBL  file.  See  the  example  file  in  the  I/O  section  above.  Elapsed 
simulation  time,  time  in  the  current  cycle,  mole  fractions  in  the  mixers,  date,  and  time  are 
output  as  header  information.  Tne  gas  oxygen  mole  fraction  and  gas  velocity  are  output  as 
functions  of  lump  number  and  total  distance  in  the  bed. 

STARTUP 

COMMON  Blocks 
/BDAT/ 

/GASES/ 

/INIT/ 

/PLEN/ 

/RDAT/ 
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/RDAT2/ 

Subroutines  Called 
BEDDAT 
RUNTBL 
WRMST 
XGETPAM 
YES 

Description 

This  routine  initializes  the  entire  simulation.  It  calls  BEDDAT,  WRMST,  and 
RUNTBL  to  read  parameter  and  load  COMMON  blocks.  In  a  normal  start,  it  also  adjusts 
Ax  to  get  an  integer  number  of  lumps  in  the  bed  and  initializes  the  adsorbed  gas  arrays 
(assuming  beds  at  equilibrium  with  air  at  atmospheric  pressure). 

TCHECK 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 

Description 

TCHECK  checks  to  see  if,  at  the  current  simulation  time,  a  particular  run  table 
parameter  has  a  new  value.  Values  in  the  time  arrays  are  set  equal  to  -1  after  the  time  for 
implementation  has  passed.  When  no  step  changes  are  desired,  the  implementation  times 
for  succeeding  available  steps  should  be  set  to  a  large  time  (at  a  minimum,  greater  than  the 
simulation  dme). 

TGETPAM 

COMMON  Blocks 
/RDAT/ 

/RDAT2/ 

Subroutines  Called 
TCHECK 

Description 

This  routine  calls  TCHECK  for  each  different  time  varying  parameter.  The  values 
returned  by  TCHECK  are  then  returned  to  PROC. 

TIME 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 
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Description 

This  is  the  Vax  FORTRAN  routine  for  finding  the  system  time.  The  time  is  used  in 
header  information  in  output  files. 

TPARAM 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 

Description 

TPARAM  is  called  by  RUNTBL  to  actually  change  the  values  of  the  run  table 
parameters.  It  is  called  once  for  each  di^erent  parameter  and  displays  the  table  of  values 
and  start  times  for  that  parameter.  In  warm  starts,  TPARAM  dumps  all  its  ou^t  to  the 
appropriate  file  in  a  single  call. 

TREAD 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 

Description 

This  is  the  routine  called  by  RUNTBL  to  read  in  the  .TBL  file. 

VAF.VE 

COMMON  Blocks 
/BDAT2/ 

/VLVeON/ 

Subroutines  Called 
NONE 

Description 

VALVE  models  all  the  valves  in  the  system  as  orifices,  according  to  Ezekiel  and 
Shearer  (1960).  The  diameter  and  discharge  coefficients  used  in  the  code  are  determined 
by  the  valve  numbers  given  in  Figure  2  (l^supply,  2=exhaust,  3>=bypass).  In  this 
simulation,  the  ratio  of  constant  volume  heat  capacity  to  constant  pressure  heat  capacity  is 
taken  to  be  that  of  air. 

VPCNG 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 
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Description 

This  routine  interactively  changes  the  diameters  and  discharge  coefficients  of  the 
supply,  exhaust,  and  bypass  valves. 

WRMST 

COMMON  Blocks 
/BOAT/ 

/RDAT2/ 

Subroutines  Called 
ADSREAD 
BEDDAT 
RUNTBL 

Description 

This  routine  implements  a  warm  start  Interactive  inodes  are  suspended  in  lower 
routines,  and  the  adsorbed  gas  array  initialization  and  Ax  adjustment  are  done  here  instead 
of  in  STARTUP.  ADSREAD  reads  in  the  START. WRM  file  information  to  restart  the  run. 
WARMST  can  also  be  used  to  restart  a  file  from  snap  shot  output  See  the  example  files 
above,  Essentially,  to  restart  from  a  snap  shot,  a  file  must  be  created  that  has  snap  shot 
output  appended  to  the  header  information  from  a  PS A.DAT  or  START. WRM  file.  This 
nie  must  be  named  START. WRM.  A  warm  start  will  then  use  this  file  on  start  up.  This 
capability  may  be  useful  in  comparing  responses  to  different  step  changes  in  input 
parameters,  all  starting  from  the  same  steady  state. 

XGETPAM 

COMMON  Blocks 
/BDAT/ 

Subroutines  Called 
NONE 

Description 

This  routine  returns  the  proper  bed  parameters  for  either  the  lump  number  or  distance 
in  the  bed  passed  as  argument.  If  the  lump  number  is  negative,  then  the  distance  is  used  to 
find  the  zone,  and  the  proper  lump  number  is  returned  along  with  the  bed  parameters. 
Positive  tump  numbers  are  used  directly  to  find  the  parameters.  If  the  lump  number  passed 
is  too  large,  the  parameters  for  the  last  zone  are  returned  and  the  lump  number  is  returned 
as  -1. 

YES 

COMMON  Blocks 
NONE 

Subroutines  Called 
NONE 
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Description 

YES  is  passed  a  single  character.  If  the  character  is  ’y’  or  ’Y’,  YES  returns  a  logical 
variable  set  to  .TRUE..  If  the  character  is  anything  else,  YES  returns  .FALSE.. 

ZCNG 

COMMON  Blocks 
NONE 

Subroutines  Called 
KTCORR 

Description 

This  routine  interactively  modifies  the  zone  specific  parameters  in  the  beds.  As 
mentioned  above,  zone  temperatures  are  only  used  in  calculating  isotherm  parameters  (the 
entire  bed  is  assumed  to  be  at  the  temperature  of  the  first  zone  for  the  flow  calculations). 
Zones  can  have  different  diameters,  lengths,  diffusion  coefficients,  void  fractions,  and 
isotherm  coefficients. 


i 
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Index 
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CCNG  5,  26,  30,  59 
COMMON  Blocks 

/BOAT/  10. 26,  27,  37, 38. 41, 51,  56.  97, 109, 1 11 

/BDAT2/ 10,  26, 40, 51,  86, 105 
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/GASES/  10,  26, 27,  32,  37, 38, 48, 56,  67,  86,  97 

/INIT/  10,  26,  37,  38, 48,  86,  97 
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97,  101,  109 

/VLVCON/ 10, 26, 40, 48, 105 
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DATE  5, 9, 30. 38 
EQUIL  9,  31, 37, 61 
EXTADD  5, 9, 26,  31,  38, 63 
FALSEP27,30,31,  118 
FALSEP.FOR  11 
FEQl  11,30,32,  116 
FILCHK  5,  9,  26,  32,  38,  64 
FINDFLX  9,  32,  37,  65 
FINDP  27,  32,  67 
FINDQP  33, 68 
FINDQZ33,69 
FINDU  9,  33,  37,  70 
GETCYC  9, 34,  37, 73 
INTBKWD  32,  34,  74 
INTFWD  32,  35, 77 
INTTIM  9, 35. 37,  80 
ISOTHM5,31,35, 116, 117 
ISOTHM.FOR11 
KTCORR  5,  36, 42,  82 
LINK2.COM  11 
LINKC.COM  11 
PLENUM  9,  37,  83 
PREAD  5, 26,  37,  84 
PROC  5,  9,  26,  37,  86 
RUNTBL  8,  38,  39,  41,  89 
SNAPOUT  5,  9,  11,  26,  37,  38,  95 
STARTUP  5,  26,  38, 97 
TCHECK  39,  100 
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TIME  5,  9,  30, 38,  39 
TPARAM  8,  38, 40,  ICI 
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TREAD  38, 40, 104 

VALVES,  33,40, 105 

VPCNG  5,  26,  40,  106 

WRMST8, 39,41, 109 

XGETPAM  5,  9,  31,  33,  34,  35,  39, 41,  111 

YES  5,  9,  26,  30, 38,  39, 41,  1 12 

ZCNG  5,  26, 42,  1 13 
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Variables  Used  in  Equations 


A - Flow  area  in  bed  [square  meters] 

b - Beaman  isotherm  coefficient-limiting  adsorption  amount  for  nitrogen  [kgmol 

adsorbcd/cubic  meter] 

P . d(l  -  e)/e  [1/second] 

C - Total  gas  concentration  in  bed  [kgmol/cubic  meter] 

C* - Total  interfacial  concentration  [kgmol/cubic  meter] 

d - Mass  transfer  coefficient  [1 /second] 

e - Bed  void  fraction 

AH  -"Isosteric  heat  of  adsorption  [kcal/kgmol] 

j - Subscript  indicating  lump  number  (also  j- 1) 

K - Beaman  isotherm  coefficient  [kgmol  gas  phase/kgmol  adsorbed  phase] 

k - Langmuir  isotherm  coefficient  (Henry  constant)  [1/Pa] 

ko - Pre-exponential  factor  for  Henry  constant  [1/Pa] 

L - Bed  length  [meters] 

n - Amount  adsorbed  [kgmol/cubic  meter] 

p - Partial  pressure  of  a  component  [Pa] 

PbeD"  Bed  pressure  [Pa] 

q - Amount  adsorbed  (Langmuir)  [kgmol/kg  adsorbent] 


6 . Fractional  coverage 

Qq — Volumetric  flowrate  at  beginning  of  bed  (x=0)  [cubic  meters/second] 

Ql . Volumetric  flowrate  at  end  of  bed  (x=L)  [cubic  meters/second] 

qs . Saturation  amount  of  adsorption  (kgmol/kg  adsorbent] 

R - Universal  gas  constant 

p . Bed  density  [kg  adsorbent/cubic  meter] 

T . Temperature  [K] 
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u - Bed  velocity  [meters/second] 

X  - . distance  in  bed  [meters] 

Ax - Space  step  size  [meters] 
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Source  Code  Listing 


BINKLEY.FOR 


PROGRAM  BINKLEY 

This  is  the  main  program  of  the  OBOGS  simulator.  This  simulator 
is  based  on  two  papers  which  should  be  consulted  before  modifying 
the  code: 

Beaman,  J.J.,  Healey,  A.J.,  and  Nerlin,  J.,  "A  Dynamic  Model  of  a 
Molecular  Sieve  Bed  with  Nonlinear  and  Coupled  Isotherms," 

ASMS  Journal  of  Dynamic  Systems,  Measurement  and  Control, 

Vol.  105,  Dec.  1983,  pp. 265-271 

Beaman,  J.J.,"A  Dynamic  Model  of  a  Pressure  Swing  Oxygen  Generation 
System,"  ASME  Journal  of  Dynamic  Systems,  Measurement  and 
Control,  Vol.  107,  June  1985,  pp. 111-116 

This  simulator  done  by  Glenn  Munkvold,  4/88 

PARAMETER  (NZ-5,MAXSTPS-5,MAXLUMP-101,NZPl-6) 

COMMON/ INIT/PATM, TEMPI , 02BLKD 

COMMON/GASES /02MW, RN2MW, RGASl 

COMMON/VLVCON/CONSTl , CONST2 , CVCP, CRITRAT 

COMMON / RDAT  2 /  DELTAX , DELTA! , S IMTIM, LUMP  S , LUMP  S 1 , NT IM 

DIMENSION  ADS02(MAXLUMP,2) ,ADSTOT(MAXLUMP,2) , 02M0L (MAXLUMP, 2) , 

+  U (MAXLUMP, 2) , ENDS (2,2) ,PBED (2) 

DATA  PATM, TEMPI, 02BLKD/. 1013, 25., .21/ 

DATA  02MW, RN2MW, RGAS 1/32. ,28. ,8312. 3/ 

DATA  C0NST1,C0NST2, CVCP, CRITRAT/. 1563, .0404,  .7143, .528/ 

Variable  definitions: 

ADS02  Array  of  values  of  the  adsorbed  oxygen 


CONSTl,CONST2 


CRITRAT 

CTIME 

ENDS 


ADS02  Array  of  values  of  the  adsorbed  oxygen 

concentrations,  by  (LUMP, bed#),  kg-mol/cu  in 
ADSTOT  Array  of  total  adsorbed  gas  concentrations, 

by  (LUMP, bed#),  kg-mol/cu  m 

CONSTl,CONST2  Constants  in  the  valve  mass  flow  equations 

used  (see  Beaman,  1985) 

CVCP  Ratio  of  heat  capacities  for  the  valve 

equations  (NOTE:  This  is  CV/CP,  which  is 
the  inverse  of  the  usual  CP/CV) 

CRITRAT  The  "choke  flow"  pressure  ratio 

CTIME  Running  total  of  time  in  current  cycle  (sec) 

ENDS  Array  of  the  oxygen  mole  fractions  at  the 

ends  of  the  bed;  read  in  for  a  warm  start, 
normally  defaulted.  Stored  by  (end, bed#) , 
where  ^nd-l  is  the  supply/exhaust  end  of  the 
bed. 

MAXLUMP  (PARAMETER)  Maximum  number  of  lumps  (+1)  allowed 

MAXSTPS  (PARAMETER)  Maximum  nvirober  of  steps  possible  for  any  one 

of  the  time  changing  variables 
NZ  (PARAMETER)  Maximum  number  of  bed  zones  allowed 
NZPl  (PARAMETER)  NZ  +  1 

02BLKD  Default  bulk  oxygen  mole  fraction 

02M0L  Mole  fraction  of  oxygen  in  the  beds 

02MW  Molecular  weight  of  oxygen 

PATM  Atmospheric  pressure,  (.1013  MPa) 

RGASl  Gas  constant  (Pa-cu  m/kg-mol  K) 
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C  RN2MW  Molecular  weight  of  nitrogen 

C  SIMST  Simulation  start  time  (sec) .  This  zero 

C  except  for  a  warm  start. 

C  TEMPI  An  initial  default  temperature,  25  C. 

c  TFINAL  The  actual  final  time  simulated  (seconds) 

c_  U  The  array  of  velocities  in  each  bed  (m/s) 

STARTUP  reads  all  the  data  files  and  loads  COMMON  blocks  BDAT,BDAT2, 
RDAT,RDAT2,  and  PLENUM.  It  also  opens  the  output  files.  Main  output 
is  to  unit  1,  warm  start  output  is  to  unit  2. 

CALL  STARTUP (SIMST, ADS02,ADST0T,CTIME,ENDS,PBED) 

PROC  processes  all  the  data.  It  prints  results  at  appropriate  times 
and  returns  the  final  bed  profiles  for  output  to  the  warm  start  file. 
CALL  PROC (SIMST, ADS02,ADST0T,O2M0L,U,CTIME, ENDS, PBED, 

+  TFINAL) 

SNAPOUT  outputs  the  bed  adsorbed  gases,  bulk  oxygen  mole  fraction, 
and  velocity  profiles  as  well  as  the  scalars  CTIME, SIMST (which  is 
the  final  time  on  return  from  PROC).  Output  is  to  UOUT. 

NUOUT-2 

CALL  SNAPOUT (NUOUT, TFINAL, CTIME, ADS02,ADST0T, 

+  02M0L,U, PBED, LUMPS 1,DELTAX) 

STOP 

023456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  ADSREAD (MUMU, TIME, CTIME,ADS02,ADST0T, ENDS, 

+  PBED, LUMPS 1) 

This  routine  reads  SNAPOUT  output  to  get  the  required 
Initialization  information  for  a  warm  start. 

PARAMETER  (NZ-5,  MAXSTPS-5 , MAXLUMP-10 1 , NZP 1-6 ) 

COMMON/PLEN/ Y02 , Y02M1 

DIMENSION  ADS02(MAXLUMP,2),ADST0T(MAXLUMP,2),02(MAXLUHP), 

4-  ENDS{2,2),PBEO(2) 

PARAMETERS  are  defined  in  BINKLEY 
PLEN  COMMON  variables  are  defined  in  STARTUP 
Arguments  are  defined  In  PROC 

C  02  is  02M0L  in  the  other  program  units.  02  is  only 

C  used  here  in  order  to  get  ENDS,  the  02  mole  fractions 

C  at  the  ends  of  the  beds . 

READ (NUMU, 100)  TIME,CTIME, Y02,Y02Ml 

DO  1-1,2 

READ (NUMU, 110)  PBED (I) 

DO  J-1,LUMPS1 

READ (NUMU, 120)  02 ( J) , ADS02 ( J, I) , ADSTOT ( J, I) 

END  DO 

ENDS (1,1) -02 (1) 

ENDS(2,I)-02(LUMPS1) 

END  DO 

RETURN 

100  FORMAT(T25,F10.4,T55,F8,4/T23,F6.4,T3B,F6.4/) 

110  FORMAT(T23,E10.4//) 

120  FORMAT(T17,F6.4,T35,E10.4,T46,E10.4) 

C23456789O123456789O123456789O123456789O123456789O123456789O123456709O12 

END 
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SUBROUTINE  BEDDAT(IWRM,riLNM2rC0MENTS) 

This  routine  reads  and  modifies  the  data  files 
for  the  OBOGS  simulator.  The  COMMON  blocks  BOAT  and  BDAT2  are 
loaded  here. 

<;  Original  routine  by  Glenn  Munkvold  4/88 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CHARACTER* 80  COMENTS(5) 

CHARACTER*.?  PILNAM,VALC*1,EXT*4,FILNM*11,PILNM2*11,VA1,C1*1, 

+  OLDFIL*ll 

LOGICAL  MODIFY, EXST,LOGDUM|OPN 

PARAMETER  (MZ-5 , MAXSTPS-5 , MAXLUMP-10 1 , t)ZPl-6 ) 

COMMON/BDAT/  BEDD (NZ) , ZONEL (NZ) ,DIFF (NZ) , VOIDF (NZ) , TZONE (NZ) , 

+  ZONEKA (NZ) , ZONEKB (NZ) , ZONEB (NZ) , NZONE, PAREA (NZ) , BBETA (NZ) 
COMMON/BDAT2 /  VALVB, VALVO, VALVS, VOLPLEN 

DATA  MODIFY/ . FALSE . / , EXST/ . FALSE . / , LOGDUM/ . TRUE . / 

DATA  EXT/' .MSV'/ 

Variable  definitions  follow: 

BBETA  Array  of  BETA  values,  as  defined  in 

Beaman's  paper  DIFF* (1-VOIDF) /VOIDF  (l/s) 

BEDD  Array  of  bed  diameters,  one  diameter  for 

each  2one  (cm) 

COMENTS  Character  array  of  comments  describing 

the  data  set 

DC0EF6  Discharge  coefficient  of  the  bypass  valve 

DCOEFO  Discharge  coefficient  of  the  outlet  valve 

DCOEFS  Discharge  coefficient  of  the  supply  valve 

Positive  discharge  coefficients  passed 
to  the  routine  are  used;  negative  values 
cause  the  discharge  coefficients  to  be 
calculated 

OIAMB  Diameter  of  the  bypass  valve  (cm) 

DIAMO  Diameter  of  the  outlet  valve  (cm) 

DIAMS  Diameter  of  the  supply  valve  (cm) 

DIFF  Array  of  the  mass  transfer  coefficients 

for  each  zone  (1 /second) 

EXST  Logical  variable  used  to  tell  if  a  file 

exists  or  not 

EXT  Character  variable  that  contains  the 

default  extension  for  the  data  files  for 
the  simulator 

FAREA  Flow  area  (total  area*vold  fraction,  sq  m) 

FILNAM  Character  variable  for  the  file  to  be 

modified/created  (7  characters,  no  ext.) 

FILNM  Character  variable  for  the  complete  filename 

(FILNAM  +  EXT) 

FILNM2  Character  variable  for  the  filename  that 

the  file  is  to  be  saved  under  (may  or  may 
not  be  the  same  as  FILNM) 

IWRM  Flag  for  warm  starts  (-0  for  normal  start, 

■1  for  warm  start) 

OLDFIL  Name  of  the  data  file  where  bed  data  were 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


MAXSTPS 

MODIFY 

NZ 

NZONE 

OPN 

PI 

TZONE 

VALCjVALCl 

VALVE 

VALVO 

VALVS 

VOIDF 

VOLPLEN 

ZONES 

ZONEKA 

ZONEKB 


ZONEL 


originally  stored  (used  in  WRMST  when 
WRMST  calls  PREAO) . 

Parameter  defining  the  maximum  number  of 
time  steps  that  can  be  input  for  each 
time  varying  parameter 

Logical  variable  used  to  tell  if  a  file 
is  to  be  created  or  modified 
Parameter  defining  the  maximum  ntunber  of 
zones  in  the  bed 

The  number  of  different  zones  in  the  bed 
Logical  variable  used  to  tell  if  a  file  is 
open  or  not 

Yours  and  my  favorite  constant (3.14159. .) 

Array  of  temperatures  for  each  zone/ 
degrees  C 

Character  variables  used  in  reading 
responses  to  yes/no  questions 
The  product  of  the  bypass  valve  area  and 
the  bypass  discharge  coefficient (sq  meter) 

The  product  of  the  outlet  valve  area  and 
the  outlet  discharge  coefficient (sq  meter) 

The  product  of  the  supply  valve  area  and 
the  supply  discharge  coefficient (sq  meter) 

Array  of  the  void  fractions  for  each  zone 
The  volume  of  the  mixing  plenum/ 
cubic  meters 

Array  of  the  nitrogen  equil  constants/ 
one  for  each  zone  (Icgmol  ads/cubic  meter) 

Array  of  the  oxygen  equilibrium  constants/ 
one  for  each  zone  ()cgmol  gas/kgmol  ads) 

Array  of  the  nitrogen  equil  constants/ 
one  for  each  zone  (Icgmol  gas/)cgmol  ads) 

For  a  more  extended  explanation  of  the 
equilibrium  constants/  see  Beaman's 
June/  1985/  paper  (noting  that  the  B 
defined  in  that  paper  has  incorrect  units) 

Array  of  the  lengths  of  each  bed  zone  (cm 
on  input;  converted  to  meters  in  STARTUP) 


PI-3.1415926536 
IF(IWRM.BQ.O)  THEN 
Ask  for  the  filename 
WRITE(6/100) 

DO  WHILE ( .NOT. EAST) 

WRITE (6/ 110) 

READ (5, 310)  FILNAM 

FILNAM  is  only  the  seven  character  name.  Call  EXTAOD  to  add 
the  proper  extension  and  then  ask  if  the  file  exists  already. 
CALL  EXTADD (FILNAM/ EXT/ FILNM) 

CALL  FILCHK (FILNM/ EXST) 


If  the  file  exists/  ask  if  the  user  wants  to  modify 
it. 

IF (EXST)  THEN 
WRITE (6, 120)  FILNM 
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READ (5, 300)  VALCl 
CALL  YES (VALCl, MODIFY) 


OPEN (UNIT-8, FILE-FILNM, STATUS- • OLD ' ) 

CALL  PRBAD (8,COMENTS,DIAMB,DIAMS,DIAMO,NZONB,BEDD, 

+  ZONEL, DIFF, VOIDF, TZONE, ZONEKA. ZONEKB, ZONES, VOLPLBN, 

+  DCOEFB,DCOEFS,DCOEFO,OLDFIL) 


C  If  the  file  does  not  exist,  start  over. 

ELSE 

HRITE(6,125)  FILNM 
END  IF 

END  DO 

If  the  user  wants  to  modify  the  data,  step  through  the  change 
routines.  Also,  set  IFLG  to  zero  In  order  to  set  Interactive 
mode  for  the  routines 

IF (MODIFY)  THEN 
lFLG-0 

DO  WHILE (LOGDUM) 

Comment  changes  first 
HRITE(6,130) 

CALL  CCNG (COMENTS, FILNM,  IFW) 

Valve  parameter  changes 
WRIT£(6,150) 

CALL  VPCNG (DIAMB, DIAMS, DIAMO, DCOEFB, DCOEFS , DCOEFO, 

+  VOLPLEN, NZONE, IFLG) 

Zone  specific  parameter  changes,  by  zone  nximber  IZ 
HRITE(6,160) 

READ(5,*)  IZ 
DO  WHILE(IZ.GT.O) 

IFdZ.GT. NZONE)  IZ-NZONE 

CALL  ZCNG ( IZ, BEDD ( IZ) , ZONEL ( IZ) , DIFF ( IZ ) , VOIDF ( IZ) , 
+  TZONE(IZ) ,ZONEKA(1Z),ZONEKB(IZ) ,ZONEB(ZZ) ,IFLG) 

END  DO 

As)c  if  changes  are  complete;  repeat  if  they  are  not 
MRITE(6, 170) 

READ (5, 300)  VALCl 
CALL  YES (VALCl, LOGDUM) 

END  DO 

Ask.  if  the  file  is  to  be  saved  as  FILNM.  If  it  is  not, 
get  the  new  filename  and  save.  Otherwise,  delete  the 
original  file  and  save  the  modified  one  under  the  same 
name . 

WRITE (6, 180)  FILNM 
READ  (5, 300)  VALCl 
CALL  YES  (VALCl, LO'^DUM) 

C  If  you  want  to  save  under  another  name,  get  the  name,  see 
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1£  it  already  exists,  and  save  (if  it  doesn't  exist  already) . 

If  the  file  already  exists,  get  a  new  name. 

if(.not.l<XjDum)  then 

EXST-.TRUE. 

DO  WHILE (EXST) 

WRITE (6, 190) 

READ (5, 310)  FILNAM 
CALL  EXTADD (FILNAM, EXT, FILNM2 ) 

CALL  FILCHK(FILNM2,EXST) 

IF (EXST)  THEN 
WRITE (6, 200) 

ELSE 

WRITE (6, 210)  FILNM2 
END  IF 
END  DO 
CLOSE (8) 

If  a  data  set  is  being  modified,  delete  the  old  file  so 
that  it  can  be  superceded. 

ELSE 

INQUIRE ( 8 , OPENED-OPN) 

FILNM2-FILNM 

IF{OPN)  CLOSE (8, STATUS- 'DELETE') 

END  IF 

C  Now  open  the  file  for  storing  the  new  data 
OPEN (UNIT-3, FILE-FILNM2 , STATUS- 'NEW • ) 

END  IF 

END  IF 

C  Whether  or  not  the  user  wanted  to  change  the  data,  the  data  are 

C  saved.  Unit  1  is  the  main  output  file  for  the  simulator.  Unit  2 

C  is  the  "warm  start"  file  (which  contains  all  the  input  data  and  the 
C  adsorbed  phase  concentrations,  if  the  program  ends  normally) . 

C  Unit  3  is  the  new  (modified)  bed  data  file,  and  is  only  saved  if 

C  the  file  has  been  changed. 

OPEN (UNIT-1 , FILE- 'PSA. DAT ' , STATUS- 'NEW' ) 

OPEN (UNIT=2, FILE- • START, WPM' ,  STATUS- ' NEW ' ) 

I.IM-2 

IF (MODIFY)  THEN 
LIM-3 
ELSE 

FILNM2-FILNM 
END  IF 

C  Read  the  input  data  if  this  is  a  warm  start 
IFdWRM.EQ.l)  THEN 

CALL  PREAD ( 8 , COMENTS , DIAMB, DIAMS, DIAMO, NZONE, BEDD, 

+  ZONEL, DIFF, VOIDF, TZONE, ZONEKA, ZONEKB, ZONES, VOLPLEN, 

+  DCOEFB,DCOEFS,DCOEFO,FILNM2) 

END  IF 

DO  IFLG-1,LIM 
c  Comments 
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CALL  CCNG(C0MENTS,E'ILNM2,IFLG) 

C  Valve  parameters 

CALL  VPCMG (DIAHB, DIAMS , DIAMO/ DCOEFB, DCOBFS , DCOEFO, VOLPLEN, 
+  NZOME, IFLG) 

C  Zone  specific  parameters 

DO  I-l,NZONE 

CALL  ZCNG { 1 , BEDD ( I ) , ZONEL (I ) , DIFF ( I ) , VOIDF ( I ) , 

+  TZOME  < I ) , ZONEKA  < 1 ) , ZONEKB  < 1) , ZONES  < I ) , IFLG) 

END  DO 

END  DO 

IF(LIM.EQ.3)  close (3) 


C  Calculate  the  VALV  variables,  the  FAREA  and  the  BBETA  vars 
VALVB- (DCOEFB*PI*DIAMB**2) / (4 .*100**2) 

VALVO- (DCOEFO*PI*DIAMO**2) / (4 . *100**2) 

VALVS- (DCOEFS*PI*DIAMS**2) / (4 .*100**2) 

no  I-l,NZONE 

FAREA<I)-VOIDF(I) *PI*BEDD (I) **2/ (4 , *100 . **2) 

BBETA ( I ) -DIFF ( I ) *  < 1 . -VOIDF  < I) ) /VOIDF ( I ) 

END  DO 

RETURN 

100  FORMAT (///'  This  Is  the  program  that  reads  and  modifies  data', 

+  *  files  fot'/TlO, 'the  OBOGS  simulator  (APR  1988)'/) 

110  FORMATC  Please  enter  the  name  of  the  file  to  be  read', 

+  /TlCi, 'Modified  files  can  be  saved  under  a  ', 

+  'different  name  later ' /TIO, 'The  filename  should  be  seven  or', 

■f  '  less  characters  and  the  extension' /TIO, 

+  'should  be  MSV'/T10,'(do  NOT  Include  the  extension', 

+  '  here) ' ) 

120  FORMAT(/T10, 'Do  you  want  to  modify' , IX, All, '?' ) 

125  FORMAT (/TIO, 'File  ',A11, '  does  not  exist!') 

130  FORMAT(//'  Modify  comment  lines') 

150  FORMAT (///'  Modify  valve  paramters') 

160  FORMAT (///'  Modify  zone  specific  parameters'/ 

+  TIO, 'Enter  zone  #  (zero  to  exit)') 

170  FORMAT(///'  Do  you  want  to  go  bacic  for  more  changes?') 

180  FORMAT(//'  Do  you  want  to  save  the  data  as  ',A11, '?') 

190  FORMATC  Enter  the  new  seven  letter (max)  filename  without', 
t  '  any  extension') 

200  FORMATC  That  file  already  exists.  Please  choose  another.') 

210  FORMATC  Therefore,  the  data  can  be  stored  on  ',A11) 

300  FORMAT (Al) 

310  FORMAT (A7) 

C23456789012345678 901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  BEDP (UL,UZER0,BFL0W,02IM,PIN,PBBD,CAVG,CINTINT, 

-I-  02M0L,  LUMPSl,  PSUP,  POUT^QZMASS,  BCINT) 

This  subroutine  finds  the  bed  pressures  from  equation  10  of 
Beaman's  1985  paper.  The  actual  equations  used  here  are 
more  general,  however. 

EXTERNAL  PINDP 

PARAMETER  (NZ-5,MAXSTPS-5,MAXLUMP-101,NZPl-6) 

COMMOM/BDAT/  BEDD (NZ) , ZONEL (NZ) ,DIFF <NZ) , VOIDF (NZ) , TZOME (NZ) , 
*  ZONEKA(NZ) ,Z0NEKB(NZ] ,ZONEB(NZ),NZONE,FAREA(NZ) ,BBETA<NZ) 
COMMON/GASES /02MW,  RN2MW,  R6AS1 

COMMON/FPRESS/PBEDI,CONV,TEMPP,RMW(2,2),FACIN,NNBD,QZ(2) , 

+•  QL(2>  ,WBRM0L,P1NJ,CCINT(2)  ,CBCINT(2) 

DIMENSION  CINTIMT(2) ,02M0L(MAXLUMP,2) ,QZMASS (2) , PIN (2) , 

+  PBED(2} ,CAVG(2) ,UL(2) ,UZERO (2) ,  BCINT (2)  ,QLMASS(2) 

BOAT  COMMON  variables  are  defined  in  BEDDAT 
GASES  COMMON  variables  are  defined  in  BINKLEY 
PARAMETERS  are  defined  in  BINKLEY 
Arguments  are  defined  in  PROC 


Variable 

AVGMWIN 

CCINT 


CBCINT 


FAC  IN 


PINDP 


ITERS 

NNBD 

PBEDI 

PFINAL 

PINJ 

PJ1,PJ2 


QLMASS 
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Average  supply  gas  molecular  weight  (based 
on  02 IN) 

This  is  CINTINT  translated  to  comnon  FPRESS. 

It  is  an  integral  calculated  in  EQUIL. 

Stored  by  (bed#) . 

This  is  BCINT  translated  to  common  FPRESS. 
It  is  an  integral  calculated  in  EQUIL. 

Stored  by  (bed#) . 

(PV/T)  at  STP  for  Ideal  Gas  Law  conversions 
( (cu  m)  (MPa)  /  ()cg-rool)  (K) ) 

Converts  (kg/s)  to  (cu  m/s)  ambient  for 
supply  gas 

Function  that  is  used  in  FALSEP.  It 
returns  the  residual  of  equation  10 
from  Beaman's  1985  paper. 

Iteration  counter  for  the  loop  that  tries 

to  solve  for  the  bed  pressures 

The  bed  number  being  solved 

This  is  the  assumed  pressure  in  the  other 

bed  when  bed  J  is  'being  solved.  (MPa) 

The  final  bed  pressure  from  the  false 
position  solver.  (MPa) 

This  is  the  inlet  pressure  to  bed  J.  (MPa) 

Intermediate  values  of  the  bed  pressure  in 
bed  J.  (MPa) 

This  is  the  last  guess  at  the  pressure  in 
bed  1 .  It  is  used  to  test  when  the  loop 
has  converged  (MPa) . 

The  volumetric  flowrate  (cu  m/s) 

at  the  outlet  end  of  each  bed  (where  X>L) . 

Stored  by  (bed#) 

The  mass  flowrate  at  the  outlet  end  of  each 
bed  (kg/s) .  Stored  by  (bed#) .  NOTE  that 


I 


c 

c 

c 

c 

c 

c 

c 

(; 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


QZMASS  that  Is  returned  above  is  in  (grams /s) , 

NOT  (kg/ 3) 

QZ  The  volumetric  flowrate  (cu  m/s)  at  the 

inlet  of  each  bed  (where  X-0) .  Stored 
by  (bed#) 

RESIDl,RESID2  Residuals  of  equation  10  when  evaluated  by 

PJl  and  PJ2  respectively. 

RMW  Array  of  molecular  weights,  stored  by 

(end, bed#) 

TEMPP  Temperature  changes  by  zone  are  not  yet 

supported,  so  a  single  T  can  be  used  for 
the  pressure  calculations  (degrees  K) 

WBRMOL  BFLOH  converted  from  STOlpm  to  (kg-mol/sec) 

First,  do  conversions  and  initial  calculations 
TEMPP-TZONE(l)  +  273.16 
WBRMOL-BPLOW/ (1000. *22. 4*60.) 

AVGMWIN- (1.-02 IN) *RN2MW  +  02IN*02MW 
CONV-22. 4*. 1013/273. 16 
FACIN-CONV*TEMPP / AVGMWIN 
DO  1-1,2 

CCINT (I) -CINTINT (I) 

CBCINT(I)-BCINT(I) 

RMW(l,I)-02M0L(l,l)*02MW+(l.-02MOL(l,I) ) *RN2MW 
RMW  ( 2 , 1 )  -O2M0I-  ( LUMP  S 1 , 1 )  *  02MW+  ( 1 .  -02M0L  ( LUMP  S 1 , 1 )  )  *RN2MW 
END  DO 
ITERS-0 

Make  FOLD  twice  PBED(l)  just  to  assure  entry  into  the  loop  below 
P0LD=PBED(1) *2, 

Start  the  loop  to  find  the  bed  pressures.  First  assume  PBBD(l) 
is  correct.  Using  this  value,  calculate  the  flows  in  bed  #2  and 
evaluate  equation  10  from  the  paper  (calls  to  PZNDP) .  Keep  calling 
FINDP  (while  varying  the  bed  pressure)  until  the  proper  pressure  is 
bracketed  (when  the  product  of  the  residuals  is  negative) .  Once  the 
proper  pressure  is  bracketed,  call  FALSE?  to  finish  solving  for  the 
pressure.  Then,  using  this  value  for  the  pressure  in  bed  #2,  calculate 
the  flows  in  bed  #1  and  evaluate  equation  10  from  the  paper.  Bracket 
the  solution,  call  FALSEP  to  finish,  and  compare  the  new  bed  #1 
pressure  with  FOLD,  the  originally  assumed  pressure.  If  they  match, 
the  pressures  are  solved. 

DO  WHILE (ABS(PBED(1) -FOLD) /PBED(l) .GT . 1 .E-6 . AND . 

+  ITERS. LE. 20) 

POLD-PBED(l) 

Loop  on  beds 
DO  1-1,2 
J-3-I 

Load  FPRESS  for  the  function  FINDP.  FINDP  is  the  only  place 
where  FPRESS  is  used. 


NNBD-J 

PBEDI-PBED(I) 

PINJ-PIN(J) 

Start  finding  residuals  for  bed  J. 
PJl-PBED(J) 

RESID1=FINDP(PJ1) 

PJ2-PJ1*(1.  -  RESIDl) 

DO  WHILE (ABS(PJ1-PJ2) /PJl  .GT.  l.E-6) 
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RESID2-F1NDP(PJ2) 

IF(RESID1*RES1D2  .LT.  0.)  THEN 

CALL  FALSEP(FINDP,PJ1,PJ2,PF1NAL) 

Because  we  are  so  sure  that  FALSEP  will  work  once  the  pressure 
is  bracketed,  set  PJ1-PJ2  to  exit  the  loop. 

PJl-PFINAL 
PJ2<=PJ1 
ELSE 

PJ1-PJ2 
RESID1-RESID2 
PJ2-PJ1*(1.  -  RESIDl) 

END  IF 
END  DO 

PBED { J) -PJl 

END  DO 

ITERS-ITERS  +  1 
END  DO 

Having  found  the  bed  pressures,  solve  for  the  other  variables 
of  interest . 

DO  1-1,2 

CAVG(l) -PBED (I) *1 .E6/ (RGAS1*TEMPP) 

UZERO ( I ) -Q2 ( 1 ) /FAREA ( 1 ) 

IF(QZ(1) .GT.O.)  THEN 

QZMAS  S ( I ) "QZ (I ) * AVGMWIN  *1000. *CAVG ( 1 ) 

ELSE 

QZMASS(I)-QZ(I) *RMW(1,I) *1000.*CAVG(1) 

END  IF 

UL(I)-QL(I) /FAREA(NZONE) 

END  DO 

IF(ITERS.GT.20)  WRITE(6,*)  •  Failed  to  converge' 

RETURN 

C23456789O123456789O123456789O123456789O123456789O123456709O1234:;  <,789012 
END 


i 
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SUBROUTINE  CCNG (COMENTS, FILNM, IPLG) 

This  subroutine  allows  for  interactive  changes  in  the  data 
coinments  (IFL6-0)  or  writes  the  comments  to  unit  number 
IPLG  (for  non-zero  IFLG) 


LOGICAL  LOGDUM 

CHARACTER  VAL*l,COMENTS (*) * (*) ,NEWCOM*80,FILNM* (*) 
CHARACTER*9  DDATE,DTIME*0 


C 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Variable  definitions  follow: 

COMENTS  Character  array  of  comments  describing 

the  data  set 

DDATE  Character  variable  for  the  date. 

DTIME  Character  variable  for  the  time. 

IFLG  Flag  that  indicates  whether  this  call  is 

interactive  (IFLG-0)  or  a  call  to  print 
to  unit  number  IFLG. 

FILNM  File  name  where  data  are  stored. 

LOGDUM  Dummy  logical  variable  used  in  return 

from  YES  routine^  which  tests  for 
affirmative  interactive  responses 

NEWCOM  Temporary  character  variable  used  to 

read  in  the  new  comment 

VAL  Character  variable  used  for  reading 

the  response  to  yes /no  questions 


C  Interactive  mode  first 
IF(IFLG.EQ.O)  THEN 
CALL  DATE (DDATE) 

CALL  TIME (DTIME) 

WRITE(6,120)  DDATE, DTIME, FILNM 
DO  1-1,5 

WRITE (6, 110)  COMENTS (I) 
END  DO 
WRITS (6, 90) 

READ (5, 300)  VAL 
CALL  YES (VAL, LOGDUM) 


C  If  the  user  wants  to  change  the  comments,  enter  the  DO  WHILE  loop 
DO  WHILE (LOGDUM) 

WRITE (6, 100) 

DO  1-1,5 

WRITE (6, 110)  COMENTS (I) 

READ (5, 310)  NEWCOM 

C  The  first  character  of  NEWCOM  determines  what  action  is  taken 
IF(NEWCOM(l;l) .EQ. '\')  NEWCOM-'  ’ 

IF(NEWCOM(l:l) .EQ. '+')  THEN 

IBLANK-INDEX (COMENTS ( I ) , '  ' ) 

IBLANK-IBLANK  +  1 

NEWCOM-COMENTS (I) ( iIBLANK) //NEWCOM (2 : ) 

END  IF 

IF (NEWCOM ( 1 : 1 ) , EQ . • 0 ' )  NEWCOM-COMENTS ( I ) 


COMENTS (I) -NEWCOM 


END  DO 
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C  Print  out  the  eoimnents 

DO  1-1,5 

WRITE (6, 110)  COMENTS<I) 

END  DO 

C  Check  if  any  more  changes  are  desired 

WRITE (6, 130) 

READ (5, 300)  VAL 
CALL  YES (VAL, LOGDUM) 

END  DO 

C  Non-interactive  mode 

ELSE 

CALL  DATE(DDATE) 

CALL  TIME(DTIME) 

WRITE (IPLG, 120)  DDATE,DTIME,FILNM 
DO  1-1,5 

WRITE  (IFLG,  110)  COMENTSd) 

END  DO 

END  IF 

RETURN 

90  FORMAT (/'  Do  you  want  to  modify  the  data  comments?') 

100  FORMAT ('  Comment  changes?  After  each  line  of  comments', 

+  '  you  have  four  choices : ' / 

+  T5,'l.  Simply  type  a  new  comment  to  supercede  old  comment'/ 

+  T5,'2.  Type  \  to  erase  a  comment  line'/ 

+  T5, '3.  Type  +  immediately  followed  by  text  to  append  to  ', 

+  'old  comment'/ 

+  T5, '4.  Type  0  to  leave  comment  unchanged') 

110  FORMAT < IX,  A7 2) 

120  FORMAT ('  OBOGS  Simulation', T20,A9,T35,A8,T45, 'Data  From', 

+  T60,A11) 

130  FORMAT ('  Do  you  want  to  modify  the  data  comments  further?') 

300  FORMAT (Al) 

310  FORMAT (A72) 

C23456789012345678901234567890123456789012345G78901234567890123456789012 

END 
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SUBROUTINE  EQUIL (ADS02, ADSTOT, LUMPSl, LUMPS, CINTOT, CINT02 , 

+  CINTINT,BETACNT,BCINT,DELTAX) 

C  EQUIL  takes  the  current  adsorbed  phase  concentrations 
C  and  finds  the  corresponding  interfacial  concentrations.  It  also 
C  integrates  the  total  interfacial  concentration  and  multiplies 
C  by  BETA.  These  integrals  are  used  in  BEDP  and  FINDU. 

PARAMETER  (NZ=5,MAXSTPS=5,MAXLUMP-101,NZPl-6) 

DIMENSION  ADS02 (MAXLUMP,2) , ADSTOT {MAXLUMP,2) ,CINT02 (MAXLUMP,2) , 

+  CINT0T(MAXLUMP,2) ,CINTINT(2),BETACNT(MAXLUMP,2),BC1NT(2) 


C  PARAMETERS  are  defined  in  BINKLEY 
C  Arguments  are  defined  in  PROG 


C  ACCUMl 

C 

C  ACCUM2 

C 

C  NUMZ 

C 

C  XTOT 

C  XZONE 

C 


The  accumulation  variable  for  the  integration 
of  CINTINT 

The  accumulation  variable  for  the  integration 
of  BCINT 

The  next  zone  number,  used  in  space 
integrations. 

The  current  x  coordinate  in  the  bed  <m) 

The  total  distance  to  the  end  of 
the  current  zone  (m) 


C  Loop  on  beds 
DO  IBED-1,2 
XTOT-0 . 

NUMZ-1 
ACCUM1=0 . 

ACCUM2>=0 . 

CINTINT (IBED)-O. 

BCINT <IBED)-0. 

BETACNT(l,IBED)-0. 

C  Call  XGETPAM  to  get  parameter  values  at  position  XTOT. 
CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFP, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

NUMZ-NUMZ  +  1 
XZONE-ZLEN 


Call  ISOTHM  to  get  the  interfacial  concentrations  from  the 
adsorbed  phase  concentrations 

CALL  ISOTHM (ZKA, ZKB, ZB, ADS02  <1, IBED) , ADSTOT (1, IBED) , 

+  CINT02 (1, IBED) ,CINT0T(1, IBED) ) 

Loop  on  lumps.  Only  call  XGETPAM  when  a  zone  boundary  has 
been  crossed. 

DO  L-1, LUMPS 

XTOT-XTOT  +  DELTAX 
IF (XTOT. GT. XZONE)  THEN 

CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA, ZKB, ZB, NUMZ, BETA, AREA) 

CINTINT (IBED) -CINTINT (IBED)  +  ACCUMl 
BCINT (IBED) -BCINT (IBED)  +  ACCUM2 
ACCUMl- 0 . 

ACCUM2-0 . 

XZONE-XZONE  +  ZLEN 
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NUMZ-NUMZ  +  1 
END  IF 

LPl-L  +  1 

CALL  ISOTHM (ZKA, ZKB, ZB, ADS02 (LPl, IBED) , ADSTOT (LPl, IBED) , 

+  CINT02 (LPl, IBED) ,CINTOT (LPl, IBED) ) 

Do  the  integrations.  CINTINT  is  used  in  the  calculation  of  bed 
pressures.  BCINT  is  also  used  in  the  calcula  ion  of  bed  pressures. 
BETACNT  is  used  in  the  calculation  of  the  velocity  profile 
in  the  bed. 

ACCUMl  -  ACCUMl  + 

+  DELTAX*BETA*AREA* ( (CINTOT (L, IBED) +CINTOT (LPl, IBED) ) /2 . ) 

ACCUM2  -  ACCUM2  +  DELTAX*BETA*AREA 
BETACNT (LPl, IBED) -BETA*DELTAX* (CINTOT (L, IBED)  + 

+  CINTOT (LPl, IBED) ) /2. 

END  DO 

CINTINT (IBED) =CINTINT (IBED)  +  ACCUMl 
BCINT (IBED) -BCINT (IBED)  +  ACCUM2 

END  DO 

RETURN 

C234567890123456789012345678901234567890123456789012345678901234567e9012 

END 
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SUBROUTINE  EXTADD(F1,EXT,F2) 


C  This  subroutine  adds  an  extension  to  a  filename. 

C  FI  is  the  input  filename,  EXT  is  the  extension,  and 

C  F2  is  che  returned  filename. 

CHARACTER  FI* (*) ,EXT* (*) ,F2* <*) 

C  First,  find  the  end  of  FI 

IBLANK-INDEX  (Fl,  '  ' ') 

C  Then,  add  the  extension  where  appropriate 
IF(IBLANK.NE.O)  THEN 
F2-F1 ( : IBLANK) //EXT 
ELSE 

F2-F1//EXT 
END  IF 

RETURN 

C234567890123456789012345678901234567e9012345678901234567890123456789012 

END 
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SUBROUTINE  FILCHK (F1,RES) 


This  subroutine  checks  to  see  If  file  FI  exists  or  not. 

FI  is  the  filename/  RES  is  a  logical  variable  returned. 

RES  is  TRUE  if  the  file  exists. 

CHARACTER  Fl*(*) 

LOGICAL  RES 

INQUIRE (FILE-F1,EXIST-RES) 

IF(.NOT.RES)  WRITE(6,100)  FI 
RETURN 

100  FORMAT (/'  The  file  ' , A20/T10/ ’does  not  exist') 

C2345678901234B678901234S678d0123456789012345678901234567890123456789012 

END 
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SUBROUTINE  FINDFLX  <NUZERO/  WUZ ,  YNUZMl ,  U,  02M0L,  CAVG,  CINT02  , 

+  UL,UZERO,02IN,CINTOT) 

C  This  subroutine  calculates  the  flux  of  oxygen  through  the  bed 

PARAMETER  (NZ-5, MAXSTPS-5 , MAXLUMP=101 , NZPl-6) 

COMMON/RDAT2/  DELTAX, DELTAT, SIMTIM, LUMPS, LUMPS1,NTIM 

DIMENSION  02M0L(MAXLUMP,2) ,U(MAXLUHP,2) ,CAVG(2) ,UL(2) ,UZEK0(2) , 

*  YNUZ (2) ,XNUZM1 (2) ,NUZERO (2) ,CINT02 (MAXLUMP, 2) ,C1NT0T (MAXLUMP, 2) 

RDAT2  COMMON  variables  are  defined  in  RUNTBL 
PARAMETERS  are  defined  in  BINKLEY 
Arguments  are  defined  in  PROC 

Loop  on  beds 
DO  IBED-1,2 

IF{ (UZERO(IBED) **2+UL(IBED) **2) .EQ.O.)  THEN 
Zero  flow  solution 
DO  1-1,LUMPS1 

02M0L ( I , IBED ) -CINT02 ( I , IBED) /CINTOT ( 1 , IBED) 

END  DO 

ELSE 

IFO^UZEROdBED)  .EQ.-l)  THEN 
Integrate  forward  through  the  whole  bed 
LIMIT  -  1 

YN  -  UZERO ( IBED) *02IN*CAVG (IBED) 

CALL  INTFWD (LIMIT,  J/OMPSl , U, CAVG, CINT02 , 02M0L, 

+  YN, IBED, CINTOT) 

ELSE  IF(NUZERO<IBED) .EQ.-2)  THEN 

Integrate  back./ard  through  the  whole  bed 
LIMIT  -  1 

YN  -  UL(IBED) *02M0L(LUMPS1, (3-IBED) ) *CAVG(IBED) 

CALL  INTBKWD (LUMPS1,LIMIT,U,CAVG,CINT02,02M0L, 

+  YN, IBED, CINTOT) 

ELSE  IF(U(NUZER0(IBED)-1,IBED) .LT.O.)  THEN 
Then  flux  must  be  out  both  sides  of  the  bed  so  integrate  from  the 
center  out . 

CALL  INTFWD (NUZERO(IBED) ,LUMPS1,U,CAVG,CINT02,02M0L, 

+  YNUZ (IBED), IBED, CINTOT) 

NST-NUZERO(IBED)-l 
LIMIT-1 

CALL  INTBKWD (NST, LIMIT, U, CAVG, CINT02 , 02M0L, 

+  YNUZMl (IBED) , IBED, CINTOT) 

ELSE 

C  Flux  must  be  in  from  both  sides,  so  integrate  from  the  ends  in. 
LIMIT-NUZERO(IBED)-l 
YN-U ( 1, IBED) *02 IN* CAVG (IBED) 

CALL  INTFWD ( 1 , LIMIT, U, CAVG, CINT02 , 02M0L, 

+  YN, IBED, CINTOT) 

YN-U(LUMPS1, IBED) *02M0L (LUMPS 1, (3-IBED) ) *CAVG(IBED) 

CALL  INTBKWD ( LUMPS 1,NUZER0 (IBED) , U, CAVG, CINT02, 02M0L, 

+  YN, IBED, CINTOT) 


END  IF 
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END  IF 


END  DO 
RETURN 

023456789012345678901234567890123456789012345678901234567890123456789012 

END 
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FUNCTION  PINDP(PBED) 

C  This  function  finds  the  residual  of  equation  10  In  Beaman's  1985 

c  paper.  FINDQZ  finds  the  volumetric  flowrate  at  the  outlet  end 

C  of  the  bed;  FINDQP  finds  the  volumetric  flowrate  through  the 

C  bypass  valve.  All  volumetric  calculations  are  done  at  pressure 

C  FEED . 

COMMON/FPRESS/PBEDI,CONV,TEMPP,RMW(2,2) ,FACIN,NNBD,QZ(2) , 

+  QL(2) ,HBRMOL,PINJ,CCINT(2) ,CBC1NT(2) 

C0MM0N/GASES/02MW, RN2MW, RGASl 

GASES  COMMON  variables  are  defined  In  BINKLEY 
FPKESS  COMMON  variables  are  defined  in  BEDP 

Variable 
PBED 

PBEDI 
QP 

TEMPP 

First,  call  FINDQZ  to  find  the  volume  rate  at  the  beginning  of  the  bed. 
CALL  FINDQZ (PINJ, PBED, CONV, TEMPP, BMW, FACIN,NNBD,QZ (NNBD) ) 

Then  call  FINDQP  to  find  the  bypass  rate. 

CALL  FINDQP (PBED, PBEDI , CONV, TEMPP , RMW, NNBD, QP ) 


definitions : 

The  pressure  In  bed  currently  being 
sought  by  falsep,  (MPa) 

The  pressure  assumed  In  the  other  bed  (MPa) 
The  volumetric  flowrate  through  the  bypass 
valve  (cu  m/s) 

The  temperature.  In  K 


If  QP  is  negative,  than  product  flow  is  out  of  the  other  bed,  so 
QL-QP,  If  QP  la  positive,  then  product  flow  Is  out  of  this  bed 
(QL"QP  +  product  flow) .  If  QP  Is  zero,  then  half  of  the  product 
flow  comes  from  this  bed  (QL-0 .5* (product  flow)). 

1F(QP,GT.0.)  THEN 

QL(NNBD)-QP  +  WBRMOL*RGASl*TEMPP/ (PBED*1 .E6) 

ELSE  IF(QP.LT.O.)  THEN 
QL(NNBD)-QP 
ELSE 

QL(NNBD)-WBRMOL''RGASl*TEMPP/  (2 .  *PBED*1  .E6) 

END  IF 


Now  evaluate  equation  10 
FACT0R-RGAS1*TEMPP*CCINT (NNBD) 
FACTOR2-PBED*l.E6* (QL(NNBD)  -  QZ(NNBD) 
FINDP-1,  -  FACT0R/FACT0R2 


+  CBCINT (NNBD) ) 


RETURN 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  FINDQP (PBED,PBEDJ,CONV,TEMPP,RHN,NNBD,QP) 

This  function  returns  the  volume  flowrate  through  the  bypass 
valve  at  pressure  PBED.  Variables  are  defined  In  BEDP. 

Units  are  <cu  m/sec) . 


DIMENSION  RMW(2,2) 


VALVE  returns  N,  a  mass  flowrate/  from  the  pressures  on  each 
side  of  the  valve.  NVLV  Is  a  valve  number  (NVLV-3  Is  the 
bypass  valve) . 

NVLV-3 

CALL  VALVE (PBEO/PBEDJ/N, NVLV/ TEMPP) 


IF(M.EQ.O.}  THEN 
QP-0 . 

RETURN 

ELSE 

IF(H.LT.O.)  THEN 

Then  PBED<PBEDJ/  so  use  the  molecular  weight  from  the  other 
bed  In  conversions. 

QP-H*CONV*TEMPP/ (PBE0*RMH(2/ 3-NNBD) ) 

ELSE 

Then  PBED>PBEDJ/  so  use  the  molecular  weight  from  this 
bed  (NNBD)  In  conversions. 

QP-H*CONV*TEMPP/ (PBED*RMH (2/NNBD) ) 


END  IF 
END  IF 


RETURN 


C234567890123456789012345678901234567890123456789012345$78<'/0123456789012 

END 
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SUBROUTINE  FINDQZ  <PIN, PBED, CONV, TEMPP, RMW, FACIN, NNBD, QZ) 

This  function  returns  the  volume  flowrate  through  the  supply/ 
exhaust  valves  at  pressure  PBBD.  Variables  are  defined  In  BBDP. 
Units  are  (cu  m/sec) . 

DIMENSION  RMW (2, 2) 

VALVE  returns  w,  a  mass  flowrate,  from  the  pressures  on  each 
side  of  the  valve.  NVLV  is  a  valve  number  (NVLV-1  Is  the 
supply  valve;  2  is  the  exhaust  valve) . 

NVLV-1 

CALL  VALVE (PIN, PBED,W, NVLV, TEMPP) 

IF(W.EQ.O.)  THEN 
QZ-0. 

RETURN 
ELSE 

IF(W.LT.O.)  THEN 

Then  PIN<PBED,  so  this  la  an  exhaust  sequence.  Note  that  this 
flow  Is  negative,  as  Is  desired.  Use  the  molecular  weight  from  this 
bed  (NNBO)  In  conversions. 

NVLV-2 

CALL  VALVE (P IN, PBED,W, NVLV, TEMPP) 

QZ-W*CONV*TEMPP/ (PBED*RMW(1,NNBD) ) 

ELSE 

Then  PIN>PBED,  so  this  Is  a  supply  sequence.  Use  the  molecular 
weight  from  the  supply  gas  in  conversions. 

QZ-W*FACIN/PBED 

END  IF 
END  IF 

RETURN 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  PINDU (NUZERO, U, BETACNT, CAVG, UL, UZERO, TNUZ , YNUZMl , 

+  CINT02) 

This  subroutine  finds  the  velocity  profile  in  the  beds.  It  also 
calculates  the  appropriate  initial  fluxes.  U  is  found  from  the 
trapezoidal  rule. 

U(I)-U(I-1)  +  BETA*  ( (CINT0T(I)+CINT0T(I-1) )  /  (2*CAVG)  -  1)*DEI,TAX 

PARAMETER  (NZ-5,MAXSTPS-5,MAXLUMP-101#NZPl-6) 

COMMON/RDAT2/  DEIjTAX,DELTAT, SIMTIM, LUMPS, LUMPS1,NTIM 

DIMENSION  U<MAXLUMP,2) ,CINT02 (MAXLUMP, 2) , BETACNT (MAXLUMP, 2) , 

+  CAVG (2)  ,UL(2),UZBR0(2),yNUZ(2),niUZMl(2),NUZBR0(2) 


ROAT2  COMMON  variables  are  defined  in  RUNTBL 
Arguments  are  defined  in  PROC 


Variable 

ALAST 


BETACNT 


ULAST 

XLAST 

XTOT 

XZONE 


definitions : 

Integrations  done  in  this  routine  are 
done  zone  by  zone.  At  each  zone  change, 
the  last  value  of  many  parameters  are 
needed  as  the  lower  limits  of  integration. 
ALAST  is  the  last  area  <sq  m) 

BETACNT { I ) ■BETA*DELTAX* (CINTOT ( 1 )  + 
CINTOT(I-l) ) /2. 

The  current  zone  number  plus  one.  It  is 
used  in  calls  to  XGETPAM. 

The  last  velocity  <m/s) 

The  X  coordinate  of  the  beginning  of  the 
zone .  (m) 

The  current  x  coordinate  in  the  bed  (m) 

The  total  distance  to  the  end  of 
the  current  zone  <m) 


Loop  on  beds 
DO  IBED-1,2 

The  zero  flow  solution 

IF((UL(IBED)**2+UZER0(IBED)**2) .LE.O.)  THEN 
DO  I-l, LUMPS 1 
U<I, IBED)-0. 

END  DO 

NUZERO(IBED)»0 

YNUZ(IBED)-0. 

YNUZMl (1BED)“0. 

ELSE 


Initialization 
XTOT-0 . 

XLAST-0 . 

U ( 1 , IBED) -UZERO ( IBED ) 

NUZERO(IBED) -0 
NUMZ-1 

Call  XGETPAM  to  get  parameter  values  at  position  XTOT. 

CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 
t  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

NUM2=NUMZ  +  1 

XZONE-ZLEN 

ALAST-AREA 
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Set  NUZERO  for  the  cases  of  flow  in  the  positive  only  (-1)  or  negative 
only  (-2)  directions  in  the  beds. 

IF< (UL(IBED)*UZERO(IBBD) ) .GE.O.)  THEN 
Then  the  velocities  at  the  ends  of  the  beds  are  of  the  same  sign,  and 
therefore,  there  is  no  zero  point  in  the  bed. 

IF(UL(IBED) .LE.O.)  NUZERO(IBED)  -  -2 
That  is,  flow  is  entirely  in  the  negative  X  direction 
IF<UZERO(IBED) .GE.O.)  NUZERO (IBED)  -  -1 
That  is,  flow  is  entirely  in  the  positive  X  direction 
END  IF 

Loop  on  lumps .  Only  call  XGBTPAM  when  a  zone  boundary  has 
been  crossed.  This  loop  calculates  the  velocity  profile. 

DO  L-1, LUMPS 
ULAST-U(L, IBED) 

XTOT-XTOT  +  DELTAX 

IF(XTOT.GT.XZONE)  THEN 
XLAST-XLAST  +  ZLEN 

CALL  XGETPAM(XTOT, ZBEDD, ZLEN, ZDIPF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

XZONE-XZONE  +  ZLEN 
NUMZ-NUMZ  +  1 

ULAST=U(L, IBED) *ALAST/AREA 
ALAST-AREA 
END  IF 

LPl-L  +  1 

Do  the  integration 

U<LP1, IBED)=ULAST  +  BETACNT (LPl, IBED) /CAVG( IBED) 

+  -  BETA*DELTAX 

A  zero  velocity  point  will  only  exist  if  NUZERO  is  >  or  -  0 . 

IF (NUZERO (IBED) .GE.O)  THEN 

IF ( (U (LPl, IBED) *U(L, IBED) ) .EQ.O.)  THEN 
Then  U (LPl, IBED)  or  U(L,IBED)  is  zero.  Only  record  it  the  first 
time. 

IF (NUZERO (IBED) .EQ.O)  NUZERO (IBED) -LPl 
yNTJZ(IBED)-0. 

ELSE  IF( (U(LP1,IBED) *U(L,IBED)) .LT.O.)  THEN 
C  Then  the  zero  velocity  point  is  between  L  and  LPl.  However,  fluxes 
C  should  only  be  calculated  here  if  the  flow  is  out  both  ends  of  the 

C  bed.  The  flux  will  only  be  out  both  sides  of  the  bed  if  a  zero 

C  velocity  point  exists  (and  one  will  exist  if  the  above  IF  statement 

C  is  true)  and  if  the  velocity  at  the  end  of  the  bed  is  positive. 

C  First,  assign  the  zero  velocity  point 
NUZERO (IBED)  -  LPl 

IF  (UL(IBED) .GT.O.)  THEN 

C  Then  the  conditions  are  correct  for  flow  out  both  sides  of  the 
C  bed.  What  follows  is 

C  a  hybridization  of  the  integration  scheme  from  Beaman,  Healey,  and 

C  Werlin  1983  paper.  The  idea  la  to  find  the  X  intercept  between  L 

C  and  LPl  where  the  velocity  is  zero  and  then  to  integrate  from  this 

c  point  to  L  and  LPl  to  get  the  initial  fluxes  at  L  and  LPl. 
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DZCR  is  the  distance  from  the  zero  velocity  point  to  X(LPl) . 

DTC  is  the  distance  from  the  zero  point  to  X(L) .  Note  that  DZCR 
is  positive^  and  that  DTC  is  negative. 

DZCR«DELTAX*U(LP1, IBED) / (U(LP1,  IBED) -ULAST) 

DTC-D  ZCR-DELT AX 

Evaluate  the  integration  parameters  and  calculate  the  initial 
flux  at  the  LPl  point  (this  is  YNUZ) 

Rl-U (LPl, IBED) /DZCR 

R3- (CINT02 (LPl, IBED) -CINT02 (L, IBED) ) /DELTAX 
R2-CINT02 (L, IBED) -R3*DTC 
A1=BETA*R2*R1/ (BETA+Rl) 

A2>=BETA*R3*R1/  (BETA+2 .  *R1) 

YNUZ ( IBED) -A1*DZCR  +  A2*DZCR*DZCR 
C  R1  has  to  be  reevaluated  for  the  flux  in  the  other  direction. 

C  YNUZMl  is  the  flux  at  the  L  point.  Note  that  for  integrations 

C  in  the  baclcward  direction,  the  definition  for  DELTAX  changes 
C  (normally,  DELTAX-X(I)  -  X(l-l);  for  backward  integration, 

C  DELTAX-X(I-l)  -  X(I)).  This  change  in  definition  is  necessary 
C  because  the  node  numbers  I  are  monotonically  increasing  with 
C  distance.  Because  of  the  change  in  definition  of  DELTAX,  the 

C  definition  for  R1  changes  to: 

C  R1-(U(I-1)  -  U(I)/(X(I-1)  -  X(l)).  Note  further  that  R3  and  R2 

C  are  unaffected  by  these  concerns  here. 

R1=ULAST/DTC 
A1-BETA*R2*R1/ (BETA+Rl) 

A2-BETA*R3*R1/ (BETA+2 . *R1) 

YNUZMl (IBED) =A1*DTC  +  A2*DTC*DTC 

END  IF 

END  IF 

END  IF 
END  DO 
END  IF 
END  DO 
RETURN 
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END 
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SUBROUTINE  GETCYC (TCYC, CTIME, PIN, PSUP, POUT) 

C  This  routine  matches  the  proper  pressure  to  the  beds  based 

C  on  the  cycle  time  (TCYC)  and  the  time  in  the  current  cycle 

C  (CTIME) .  Odd  half  cycles  put  PSUP  on  bed  1  ; 

C  even  half  cycles  put  PSUP  on  bed  2 .  All 

C  pressures  are  MPa;  all  times  are  seconds. 

DIMENSION  PIN (2) 

HAFCYC-TCYC/2 . 

C  The  following  lines  are  for  initialization  only. 

IF(PIN(1) .NE. POUT. AND. PIN (1) .NE.PSUP)  THEN 
PIN (1) -PSUP 
PIN (2) -POUT 
END  IF 

IF (CTIME. GE.HAFCYC)  THEN 

IF ( (CTIME-HAFCYC) . GE . HAFCYC)  THEN 
C  Reset  CTIME  and  start  an  odd  half  cycle 
CTlME-0. 

PIN (1) -PSUP 
PIN (2) -POUT 
ELSE 

C  Set  the  even  half  cycle 
PIN (1) -POUT 
PIN (2) -PSUP 
END  IP 

END  IF 

RETURN 

C23456709O123456789O123456789O123456789O123456789O123456789O123456789O12 

END 
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SUBROUTINE  INTBKWD (LONE, LLAST,U,CAVG,CINT02,O2MOL, 

+  PLUXl,IBED,CINTOT) 

This  routine  Integrates  the  flux  backward  through  the  bed.  See 
both  of  the  papers  noted  In  BINKLEY  for  a  description  of  these 
equations  and  the  solution  method.  Note  that  LONE>LLAST,  and  that 
DELTAX  must  be  reversed  in  sign  (using  DELXNE6) . 

PARAMETER  (NZ»5,MAXSTPS-5,MAXLUMP«101,NZP1“6) 

COMMON/RDAT2/  DELTAX, DELTAT, SIMTIM, LUMPS, LUMPS1,NTIM 

DIMENSION  02M0L(MAXLUMP,2),U(MAXLUMP,2),CAVG(2), 

+  CINT02(MAXLUMP,2) ,CINT0T(MAXLUMP,2) 

RDAT2  COMMON  variables  are  defined  in  RUNTBL 
PARAMETERS  are  defined  in  BINKLEY 

Arguments  are  defined  in  PROC,  EXCEPT  as  noted  below. 

Variable  definitions: 

The  flow  area  of  the  zone  that  has  just 
been  integrated  (sq.m.) 

The  negative  of  the  space  step,  DELTAX 
The  flux  at  the  last  space  step 
( (kg-mol) / (sq  m) (sec) ) 

The  flux  at  the  lower  integration  limit 
( (kg-mol) / (sq  m) (sec) ) 

Bed  number 

The  upper  integration  limit  (lump  #) 

The  lower  integration  limit  (lump  #) 

The  zone  number  to  be  used  in  the  next 
call  to  XGETPAM.  If  NUMZ  Is  less  than  1, 

XGETPAM  uses  XTOT  to  get  the  parameters 
and  returns  the  proper  NUMZ. 

The  velocity  at  lump  J,  used  in  the 
calculation  of  the  flux  at  the  (J-1)  lump. 

ULAST  has  to  be  adjusted  using  areas  at 
zone  boundaries  in  order  to  enforce 
continuity  (m/s) . 

The  current  x  coordinate  in  the  bed  (m) 

The  total  distance  to  the  end  of  the 
current  zone  (m) ,  IN  THE  DIRECTION  OF 
INTEGRATION!  Note  that  this  definition  is 
different  than  in  the  forward  integrating 
routines,  and  corresponds  to  the  total 
distance  from  the  beginning  of  the  bed 
to  the  beginning  of  the  current  zone . 

First,  find  the  coordinate  of  the  lump  LONE 
XTOT-DELTAX*FLOAT (LONE-1) 

DELXNEG-  -  DELTAX 

Now  find  out  where  in  the  current  zone  XTOT  is.  This  is  necessary 
because  we  need  to  know  where  to  switch  to  the  next  zone.  Increment 
through  the  bed  to  the  end  of  the  current  zone  to  find  its 
coordinate.  Find  out  the  place  in  the  zone  from  this  coordinate,  the 
length  of  the  zone  (ZLEN)  and  XTOT. 

NUMZ-1 
XZONE-0 , 


ALAST 

DELXNEG 

FLUXOLD 

FLUXl 

IBED 

LLAST 

LONE 

NUMZ 


ULAST 


XTOT 

XZONE 
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DO  WHILE (XZONE.LT.XTOT) 

CALL  XGETPAM (XZONE, ZBEDO, ZLEN,  ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

XZONE  >  XZONE  +  ZLEN 
NUMZ  -  NUMZ  +  1 
END  DO 

XZONE  =  XZONE  -  ZLEN 

C  Now  call  XGETPAM  with  XTOT  to  get  the  proper  parameters  at  XTOT 
NUMZ  -  -1 

CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

NUMZ-NUMZ  -  1 
ALAST-AREA 

C  Note  the  minus  sign  here  because  of  the  backward  integration 

C  Initialize  variables 
FLUXOLD-FLUXl 

IF (U (LONE, IBED) . NE . 0 . )  THEN 

02M0L (LONE, IBED) -FLUXl/ (U (LONE, IBED) *CAVG (IBED) ) 

ELSE 

02M0L (LONE, IBED) -CINT02 (LONE, IBED) /CINTOT (LONE, IBED) 

END  IF 

Start  integration  loop.  Only  call  XGETPAM  when  necessary.  Note 
the  loop  counter  is  DECREMENTED. 

DO  J-LONE,LLAST  +  1,-1 
JMl-J  -  1 
ULAST-U(J,IBED) 

XTOT-XTOT  -  DELTAX 

Note  that  in  the  forward  integrations,  parameters  from  the  left 
side  of  the  bed  are  used  whenever  zone  boundaries  and  nodes  are 
coincident.  Therefore,  use  the  .LE.  condition  here  to  use  the 
same  parameters  in  the  reverse  integrations. 

IF (XTOT. LE. XZONE)  THEN 

CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

XZONE-XZONE  -  ZLEN 
NUMZ-NUMZ  -  1 
ULAST-ULAST*ALAST/AREA 
ALAS T- ARE A 
END  IF 

C  See  the  papers  for  integration  details 
RO-ULAST 

R1-(U(JM1, IBED)  -  RO)/DELXNEG 
R2-CINT02(J,IBED) 

R3-(CINT02 (JMl, IBED)  -  R2)/DELXNEG 
A2-BETA*R3*R1/ (BETA  +  2.*R1) 

A1-(BETA*(R3*R0  +  R2*R1)  -  2 . *A2*R0) / (BETA  +  Rl) 

AO-RO* (BETA*R2  -  Al) /BETA 
IF(R1.NE.0. .AND.RO.NE.O.)  THEN 
PWR— BETA/Rl 

FLUXNEW- (FLUXOLD  -  A0)*(1.  +  Rl*DELXNEG/RO) **PWR 
FLUXNEW-FLUXNEW  +  AO  +  A1*DELXNEG  +  A2*DELXNEG**2 
ELSE 

IF(RO,NE.O.)  THEN 
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PWR— BETA*DELXNEG/RO 

FLUXNEW-(FLUXOLD  -  AO)*EXP(PWR)  +  AO  +  A1*DELXNEG 
ELSE 

FLUXNEW»A1*DELXNEG  +  A2 *DELTAX*DELTAX 
END  IF 

END  IF 

IF (U ( JMI , IBED)  .NE  .  0  . )  THEN 

02M0L (JMI, IBED) -FLUXNEW/ (CAVG<IBED) *U (JMI, IBED) ) 

ELSE 

02M0L (JMI, IBED) -C1NT02 (JMI, IBED) /CINTOT (JMI, IBED) 

END  IF 

FLUXOLD=FLUXNEW 
END  DO 

RETURN 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 


OBOGS  Manual 


257 


non  o  o  o 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


SUBROUTINE  INTEND (LONE, LIAST,U,CAVG,CINT02,02M0L, 

+  FLUXl,IBED,CINTOT) 

This  routine  integrates  the  flux  forward  through  the  bed.  See 
both  of  the  papers  noted  in  BINKLEY  for  a  description  of  these 
equations  and  the  solution  method.  Note  that  LLAST>LONE. 

r  ARAMETER  (NZ-5 , MAXSTPS-5 , MAXLUMP-10 1 , NZP 1-6 ) 

C0MM0N/RDAT2/  DELTAX, DELTAT, SIMTIM, LUMPS, LUMPSl, NTIM 

DIMENSION  02M0L(MAXLUMP,2) ,U(MAXLUMP,2) ,CAVG(2) , 

+  CINT02 (MAXLUMP , 2 ) , CINTOT (MAXLUMP , 2 ) 

RDAT2  COMMON  variables  are  defined  in  RUNTBL 
PARAMETERS  are  defined  in  BINKLEY 

Arguments  are  defined  in  PROC,  EXCEPT  as  noted  below, 
definitions: 

The  flow  area  of  the  last  zone  integrated 
(sq.m. ) 

The  flux  at  the  last  space  step 
( (kg-mol) / (sq  m) (sec) ) 

The  flux  at  the  lower  integration  limit 
( (kg-mol) / (sq  m) (sec) ) 

Bed  number 

The  upper  integration  limit  (lump  #) 

The  lower  integration  limit  (lump  #) 

The  zone  number  to  be  used  in  the  next 
call  to  XGETPAM.  If  NUMZ  is  less  than  1, 

XGETPAM  uses  XTOT  to  get  the  parameters 
and  returns  the  proper  NUMZ . 

The  velocity  at  lump  J,  used  in  the 
calculation  of  the  flux  at  the  (J+1)  lump. 

ULAST  has  to  be  adjusted  using  areas  at 
zone  boundaries  in  order  to  enforce 
continuity  (m/s) . 

The  current  x  coordinate  in  the  bed  (m) 

The  total  distance  to  the  end  of 
the  current  zone  (m) 

First,  find  the  coordinate  of  the  lump  LONE 
XTOT-DELTAX*FLOAT (LONE-1) 

Now  find  out  where  in  the  current  zone  XTOT  is.  This  is  necessary 
because  we  need  to  know  where  to  switch  to  the  next  zone.  Increment 
through  the  bed  to  the  end  of  the  current  zone  to  find  its 
coordinate.  Find  out  the  place  in  the  zone  from  this  coordinate 
and  XTOT. 

NUMZ-1 
XZONE-0 . 

DO  WHILE (XZONE.LE. XTOT. ■ 

CALL  XGETPAM (XZONE, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA,  AREA) 

XZONE  -  XZONE  +  ZLEN 
NUMZ  =  NUMZ  +  1 
END  DO 


Variable 

ALAST 

FLUXOLO 

FLUXl 

I  BED 
LLAST 
LONE 
NUMZ 


ULAST 


XTOT 

XZONE 


NUMZ—1 
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Call  X6ETPAM  to  get  parameter  values  at  position  XTOT. 
CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

NUMZ-NUMZ  +  1 
ALAST-AREA 


C  Initialize  variables 

FLUX0LD=FLUX1 

IF(U(LONE, IBED) .NE.O.)  THEN 

02M0L (LONE, IBED) -FLUXl/ (U (LONE, IBED) *CAVG (IBED) ) 

ELSE 

02M0L (LONE, IBED) -CINT02 (LONE, IBED) /CINTOT (LONE, IBED) 

END  IF 

C  Start  integration  loop.  Only  call  XGETPAM  when  necessary 
DO  J-LONE,LLAST  -  1 
JPl-J  +  1 
ULAST-U(J,IBED) 

XTOT-XTOT  +  DELTAX 

IF(XTOT.GT.XZONE)  THEN 

CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

XZONE-XZONE  +  ZLEN 
NUMZ “NUMZ  +  1 
ULAST-ULAST*ALAST/AREA 
ALAST-AREA 
END  IF 

C  See  the  papers  for  integration  details 
RO-ULAST 

R1=-(U(JP1,  IBED)  -  RO) /DELTAX 
R2-CINT02 ( J, IBED) 

R3-(CINT02(JP1,IBED)  -  R2) /DELTAX 
A2-BETA*R3*R1/(BETA  +  2.*R1) 

A1-(BETA* (R3*R0  +  R2*R1)  -  2 . *A2*R0) / (BETA  +  Rl) 

A0-R0*(BETA*R2  -  Al) /BETA 
IF(R1.NE.0. .AND. RO. NE.O.)  THEN 
PWR— BETA/Rl 

FLUXNEW-(FLUXOLD  -  A0)*(1.  +  R1*DELTAX/R0) **PVm 
FLUXNEW-FLUXNEW  +  AO  +  A1*DELTAX  +  A2*DELTAX**2 
ELSE 

IF (RO, NE.O.)  THEN 

PWR— BETA*DELTAX/RO 

FLUXNEW-(FLUXOLD  -  A0)*EXP(PWR)  +  AO  +  A1*DELTAX 
023456789012345676901234567890123456789012345678901234567890123456789012 
ELSE 

FLUXNEW=A1*DELTAX  +  A2*DELTAX*DELTAX 
END  IF 

END  IF 

IF (U(JP1, IBED) .NE.O. )  THEN 

02M0L(JP1,  IBED)"-FLUXNEW/  (CAVG(IBED)  *U(JPl,  IBED) ) 

ELSE 

02M0L ( JPl, IBED) -CINT02 ( JPl, IBED) /CINTOT (JPl, IBED) 

END  IF 
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FLUXOLD-PLUXNEW 

END  DO  ,  // 

'  '  t'  i  .  •  ' 

'RETURN  ,  /  '/ 

■  ■  -  i  - 

C2345678901234567890123456789012345'<iT89012^4567890123455  7890123456789012 

END  :  ,  ■  ;  '  f  V  ■  , 


I 

■  ^  -  ,  -  ■  /  ■  -  >  <  ■ 
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SUBROUTINE  INTTIM ( ADS02 , ADSTOT, CAVG, 02M0L, CINT02 , 

+  CINTOT) 

This  routine  integrates  the  adsorbed  phase  gas  concentrations 
In  tine.  See  the  1985  paper  (as  noted  in  BINKLEY)  for  details 
of  the  method  (a  simple  Euler  method)  . 

PARAMETER  (NZ-5,MAXSTPS»5, MAXLUMP-101, NZPl-6) 


COMMON/RDAT2/  DELTAX,DELTAT,SIMTIM,LUMPS,LUMPSl,NTIM 


DIMENS ION  ADS02 (MAXLUMP ,2), ADSTOT (MAXLUMP ,2), 02M0L (MAXLUMP, 2 ) , 
+  C INT02 (MAXLUMP , 2 ) / C INTOT (MAXLUMP ,2), CAVG ( 2 ) 

RDAT2  COMMON  variables  are  defined  in  RUNTBL 
PARAMETERS  are  defined  in  BINKLEY 
Arguments  are  defined  in  PROC 


C 

C 

C 

C 

C 

C 

c 


Variable  definitions: 

NUMZ  The  zone  number  to  be  used  in  the  next 

call  to  XGETPAM.  If  NUMZ  is  less  than  1/ 
XGETPAM  uses  XTOT  to  get  the  parameters 
and  returns  the  proper  NUMZ. 

XTOT  The  current  x  coordinate  in  the  bed  (m) 

XZONE  The  distance  in  the  current  zone  (n) 


C  Loop  on  beds 
DO  1-1,2 


NUMZ-1 
XTOT-0 . 

C  Call  XGETPAM  to  get  parameter  at  position  XTOT. 

CALL  XGETPAM  (XTOT,  ZBEDD,  ZLEN,  SMi!-’ ,  ZVOIDF,  ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

NUMZ-NUMZ  +  1 
XZONE-ZLEN 


C  Loop  on  lumps;  only  call  XGETPAM  when  necessary 
DO  J-1,LUMPS1 

IF (XTOT. GT. XZONE)  THEN 

CALL  XGETPAM(XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 
t  ZKA,ZKB,ZB,NUMZ, BETA, AREA) 

XZONE-XZONE  +  ZLEN 
NUMZ-NUMZ  +  1  ' 

END  IF 

ADSTOT ( J, I ) -ADSTOT ( J, I) -ZDIFF* 

+  (CINTOT(J,I)-CAVG(I) ) *DELTAT 

ADS02 ( J, I) -ADS02 (J, I) -ZDIFF* 

+  (CINT02 (J, 1) -CAVG(I) *02M0L( J, I) ) *DELTAT 

END  DO 

XTOT-XTOT  +  DELTAX 


END  DO 


RETURN 
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SUBROUT INE  KTCORR ( TEMP , ZKA, ZKB) 

C  This  routine  returns  the  isotherm  coefficients  (ZKA/ZKB)  as 

C  functions  of  temperature  (TBI4P)  IF  ZKA  and/or  ZKB  are 

C  negative  when  this  routine  is  called. 

C  TEMP  (degrees  C) 

C  ZKA  (kg-mol  02  gas/kg-mol  02  ads) 

C  ZKB  (kg-mol  N2  gas/kg-mol  N2  ads) 

C  These  data  are  from  Dave  Halshak.  See  Beaman  for  details. 

C  This  work  was  done  for  a  Master's  Thesis  that  Walshak  has 
C  yet  to  finish  (as  of  4/87) .  Mhere  all  the  "significant" 

C  figures  come  from  is  not  clear. 

C  Also  note  that  Walshak  uses  ZB  (B)  as 
C  3.0591250816  (kg-mol  N2  ads/cu  m) 

T-TEMP 

IF(ZKA.LT.O.)  THEN 

ZKA-.1423275+.00183744*T+.0000072443*T*T 
END  IF 

IF(ZKB.LT.O.)  THEN 

2KB-.03654573+,00095775*T+.00001321*T*T 
END  IF 

RETURN 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  PLENUM  (BFL0H,V01.PI.EN,CAVG,02M0L,LUMPS1, 

+  DELTAT,P02M0L) 

C  This  routine  models  the  plen\un  as  a  two  stage  (second  order) 

C  mixer.  Each  stage  is  half  the  total  plenum  volume  (VOLPLBN) . 

C  The  time  constant  for  each  stage  is  the  total  molar  plenum 
C  concentration  (taken  to  be  CAVG  if  we  assume  no  pressure 

C  drop  across  the  bed)  times  the  stage  volume  over  the  molar 

C  product  rate.  F02M0L  is  the  final  02  mole  fraction  output. 

PARAMETER  (NZ«5,MAXSTPS-S,HAXLUMP-101,NZPl-6) 

DIMENSION  CAVG(2) ,O2M0L(MAXLUMP,2) 

C0MM0N/PLEN/Y02, Y02M1 

C  The  variables  are  defined  in  BINKLEY,  BEDDAT,  and  RUNTBL 
C  PLEN  COMMON  variables  are  defined  in  STARTUP 
C  PARAMETERS  are  defined  in  BINKLEY 

WBRMOL-BFLOW/ (22. 4*60. *1000.) 

C  If  the  bed  pressures  are  equal,  average  the  compositions 
IF(CAVG(1) .EQ.CAVG(2) )  THEN 
TAU-CAVG(l) 

X02- (02M0L (LUMPSl, 1) +02M0L (LUMPSl, 2) )  /2 . 

ELSE 

IF(CAVG(1) .GT.CAVG(2) )  THEN 
TAU-CAVG(l) 

X02-02M0L (LUMPSl, 1) 

ELSE 

TAU-CAVG(2) 

X02-02M0L ( LUMPSl , 2 ) 

END  IF 

END  IF 

TAU-TAU*VOLPLEN/ (2 . *WBRM0L) 

Now,  Integrate  the  mixer  in  time.  XINT  is  the  intermediate 
composition. 

X1NT-Y02M1  +(!./  TAU) * (X02-Y02M1) *DELTAT 
F02M0L-Y02  +  (1 . /TAU) * (Y02M1-Y02) *DELTAT 

Y02-F02M0L 
Y02M1-XINT 

RETURN 
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SUBROUTINE  PREAD  (NUMU,COMENTS,DlAMB,DIAMS,DIAMO/NZONE,BEDD, 
+  ZONEL, DIFP, VOIDF, TZONE, ZONEKA, ZONEKB#  ZONES, VOLPLEN, 

+  DCOEFB,DCOEPS,DCOEFO,FILNM) 


C  This  subroutine  reads  in  all  the  parameters,  from  unit  NUMU. 
CHARACTER  COMENTS (*)*(*), F I LNM* ( * ) 

DIMENSION  BEDD ( * ) , ZONEL (*),DIFF<*), VOIDF <*), TZONE ( * ) , 

+  ZONEKA(*) ,ZONEKB(*) ,ZONEB(*) 

C  Variable  definitions  follow; 

Array  of  bed  diameters,  one  diameter  for 
each  zone  (cm) 

Character  array  of  comments  describing 
the  data  set 

Discharge  coefficient  of  the  bypass  valve 
Discharge  coefficient  of  the  outlet  valve 
Discharge  coefficient  of  the  supply  valve 
Positive  discharge  coefficients  passed 
to  the  routine  are  used;  negative  values 
cause  the  discharge  coefficients  to  be 
calculated 

Diameter  of  the  bypass  valve  (cm) 

Diameter  of  the  outlet  valve  (cm) 

Diameter  of  the  supply  valve  (cm) 

Array  of  the  mass  transfer  coefficients 
for  each  zone  (1/second) 

The  number  of  different  zones  in  the  bed 
Array  of  temperatures  for  each  zone, 
degrees  C 

Array  of  the  void  fractions  for  each  zone 
The  volume  of  the  mixing  plenum, 
cubic  meters 

Array  of  the  nitrogen  equll  constants, 
one  for  each  zone  (Itgmol  ads/cubic  meter) 

Array  of  the  oxygen  equilibrium  constants, 
one  for  each  zone  (kgmol  gas/Jcgmol  ads) 

Array  of  the  nitrogen  equll  constants, 
one  for  each  zone  ()tgmol  gas/kgmol  ads) 

For  a  more  extended  explanation  of  the 
equilibrium  constants,  see  Beaman's 
June,  1965,  paper  (noting  that  the  B 
defined  in  that  paper  has  incorrect  units) 

Array  of  the  lengths  of  each  bed  zone  (cm) 


REWIND  NUMU 

C  First,  read  the  general  system  parameters 
READ (NUMU, 100)  FILNM, (COMENTS (I) , I-l, 5) , 

+  DIAMB , DCOEFB , D I AMS , DCOEFS , D I AMO, DCOEFO, VOLPLEN , NZONE 

C  Then,  read  zone  specific  parameters 
DO  J-1, NZONE 

READ  (NUMU,  110)  I 

READ (NUMU, 120)  BEDD (I) , ZONEL (I) ,DIFF (I) , VOIDF (I) , TZONE (I) , 
+  ZONBKA(I) ,ZONEKB(I) ,ZONEB(I) 

END  DO 


C  BEDD 

C 

C  COMENTS 

C 

C  DCOEFB 

C  DCOEFO 

C  DCOEFS 

C 

C 

C 

C 

C  DIAMB 

C  DIAMO 

C  DIAMS 

C  DIFF 

C 

C  NZONE 

C  TZONE 

C 

C  VOIDF 

C  VOLPLEN 

C 

C  ZONEB 

C 

C  ZONEKA 

C 

C  ZONEKB 

C 

C 

C 

C 

C 

C  ZONEL 
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RETURN 


100  FORMAT (T60, All/5 <1X,A72/) //T17,F10 . 4,T36,  F8 .5/T17,  FIO . 4, 

+  T36,F8.5/T17,P10.4,T36,P8.5/T19,E10.3/T24,I2) 

110  FORMAT (/Til, 12) 

120  FORMAT (T17,P10.4/T16,F10.4/T26,P8.2/T18,F6.4/T16,F6. 2/ 

+  T7,F10.4/T7,F10.4/T6,P8.3/) 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUT INB  PROC ( S IMST , ADS02 ,  ADSTOT , 02M0L, U f  CT IME , ENDS , PBED, 
+  TFINAL) 

This  is  the  main  processing  routine 

PARAMETER  (NZ«5 , MAXSTPS-5 , MAXLUMP-101 , NZPl-6 ) 

COMMON/ INIT/PATM, TEMPI , 02BLKD 
COMMON/GASES /02MW, RN2MW,RGAS1 

COMMON/ROAT2/  DBLTAX,OBLTAT, SIMTIH, LUMPS, LUMPS1,NTIM 
C0MM0N/PLEN/y02, Y02M1 

COMMON/BDAT2 /  VALVB, VALVO, VALVS , VOLPLEN 


DIMENSION  ADS02 (MAXLUMP, 2) , ADSTOT (MAXLUMP, 2) , 02M0L (MAXLUMP , 2 ) , 

+  U (MAXLUMP, 2) , ENDS (2, 2) 

DIMENSION  CINT02 (MAXLUMP, 2) ,CINTOT (MAXLUMP, 2) , 

+  CINTINT(2),BCINT(2),BETACNT(MAXLUMP,2),QZMASS(2),PIN(2), 

+  PBED(2) ,CAVQ(2) ,UL(2) ,UZERO(2) , YNUZ ( 2 ) , YNUZMl (2) ,NUZERO(2) 


PLEN  COMMON  variables  are  defined  in  STARTUP 
RDAT2  COMMON  variables  are  defined  in  RUNTBL 
BDAT2  COMMON  variables  are  defined  in  BEDDAT 
GASES  COMMON  variables  are  defined  in  BINKLEY 
INIT  COMMON  variables  are  defined  in  BINKLEY 
PARAMETERS  are  defined  in  BINKLEY 
Arguments  are  defined  in  BINKLEY 


Variable  definitions: 

BETACNT  BBTACNT(L+1)-BETA*DELTAX* (CINTOT{L+l)  + 

CINTOT(L) ) /2 .  (kg-mol  m/s  cu  m) 

Stored  by  (LUMP, bed#) 

BCINT  This  is  the  integral  of  BETA*AREA  over  the 

length  of  the  bed  (cu  m/s)  .  Stored  by  (bed#) 

CAVG  The  total  average  bulk  concentration 

(kg-mol /cu  m) 

CINTINT  The  integral  of  the  total  interfacial 

concentration  over  the  length  of  the 
bed  (kg-mol  m/cu  m) .  Stored  by  (bed#) 

CINTOT  The  total  interfacial  concentration  in  bed# 

at  LUMP, (kg-mol/cu  m), stored  by  (LUMP, bed#) 

CINT02  The  oxygen  interfacial  concentration  in  bed# 

at  LUMP, (kg-mol/cu  m), stored  by  (LUMP, bed#) 

F02M0L  The  final  oxygen  mole  fraction  out  of  the 

plenum 

NUZERO  The  LUMP  where  the  velocity  in  the  bed 

changes  direction 

02 IN  The  inlet  oxygen  mole  fraction 

PBED  The  bed  pressure  in  bed#,  stored  by 

(bed#) ,  in  MPa 

PCYC  The  print  cycle  time  (seconds) 

PIN  The  inlet  pressure  to  bed#,  stored  by 

(bed#) ,  in  MPa 

PTIME  The  time  into  the  current  cycle  (seconds) 

QZMASS  The  total  mass  flow  into  bed#,  stored  by 

(bed#),  in  grams/sec 

IMULT  Multiplier  for  writing  a  placation 

message  to  the  screen 

TOTTIM  The  total  time  for  simulation  (sec) 

UL  The  linear  velocity  at  the  product  end  of 
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bed#,  stored  by  (bed#) ,  in  meter/sec 
UZERO  The  linear  velocity  at  the  supply  end  of 

bed#,  stored  by  (bed#) ,  in  meter/sec 
YNUZ  The  oxygen  flux  at  lump  NUZERO 

(kg-mol/ (sq  m) (sec) )  stored  by  (bed#) 
YNUZMl  The  oxygen  flux  at  lump  (NUZERO  -  1) 

(kg-mol/ (sq  m) (sec))  stored  by  (bed#) 


C  Initialize  variables 
DO  1-1,2 

02M0L(1,I)-ENDS(1,I) 
02M0L(I.UMPS1,  I)  -ENDS  (2,1) 
END  DO 

TIME-SIMST 
TOTTIM-SIMTIM-SIMST 
TMULT-1 . 

PTIME-0. 

PCYC-TOTTIM/FLOAT (NTIM) 


C 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


Write  table  headings 
WRITE (1,100) 


Start  the  simulation  time  loop.  TGETPAM  gets  the  current  value  of 
time  varying  parameters .  GETCYC  gets  the  current  inlet  bed 
pressures.  EQUIL  takes  the  current  adsorbed  phase  concentrations 
and  finds  the  corresponding  interfacial  concentrations.  It  also 
integrates  the  total  interfacial  concentration  and  multiplies 
by  SETA.  BEDP  finds  the  pressure  in  the  beds  by  solving  a  system 
of  two  coupled  non-linear  equations.  It  also  finds  the  inlet  mass 
rate  to  the  beds.  FINDU  integrates  to  find  the  velocity  profile 
in  the  beds.  Initial  fluxes  as  well  as  the  point  of  zero  velocity 
(if  there  is  one)  are  returned  for  FINDFLX.  PINDFLX  integrates  in 
the  direction  of  flow  to  get  the  oxygen  flux.  The  mole  fractions 
(O2M0L)  are  returned.  PLENUM  models  the  plenum  using  a  second 
order  transfer  function  relating  inlet  and  outlet  mole  fractions. 


DO  WHILE (TIME. LT.SIMTIM) 

CALL  TGETPAM (BFLOW, 02 IN, PSUP,POUT,TCVC, SNAP, TIME) 

CALL  GETCYC (TCYC, CTIME, P IN, P SUP, POUT) 

CALL  EQUIL (ADS02 , ADSTOT, LUMPSl,  LUMPS, CINTOT, CINT02 , 

+  CINTINT,BETACNT,BCINT,DELTAX) 

CALL  BEDP (UL, UZERO, BFLOW, 02 IN, PIN, PBED,CAVG,CINTINT, 

+  02M0L, LUMPSl, P SUP, POUT, QZMASS, BCINT) 

CALL  FINDU (NUZERO, U, BETACNT, CAVG,UL, UZERO, YNUZ, YNUZMl, 
+  CINT02) 

CALL  FINDFLX  (DIUZERO,  YNUZ ,  YNUZMl ,  U, O2M0L,  CAVG,  CINT02 , 

+  UL, UZERO, 02IN, CINTOT) 

CALL  PLENUM (BFLOW, VOLPLEN, CAVG, 02M0L, LUMPSl, 

+  DELTAT,F02M0L) 


Calculate  oxygen  mass  rate  out  (gram/sec)  and  total  mass  rate 
in  (gram/sec).  22.4  converts  STDlpm  to  gm-mol;  60  converts 
minutes  to  seconds . 

02MASS-F02M0L*BFL0W*02MW/ (22.4*60.) 

QZZ-0 . 

DO  1-1,2 
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IF (QZHASS ( I) . 6T . 0 )  THEN 
QZZ-QZZ+QZMASS(I) 

END  IF 
END  DO 

C  Write  output  at  output  intervals 
IF(PTIME.GT.PCYC)  THEN 
PTIME=0 . 

WRITE (1,110)  TIME, F02M0L, 02MASS, QZZ 
END  IF 

C  Check  to  see  if  it  is  time  for  a  "snapshot".  Output  to  UOUT. 

IF (SNAP. GT. 3)  THEN 
NUOUT-INT(SNAP) 

CALL  SNAPOUT (NUOUT, TIME,CTIME,ADS02, ADSTOT, 

+  02M0L,U,PBED,LUMPS1,DELTAX) 

END  IF 

C  Call  INTTIM  to  integrate  the  adsorbed  gas  concentrations  in  time 
CALL  INTTIM ( ADS02 , ADSTOT, CAVG, 02M0L, CINT02 , 

+  CINTOT) 

C  Update  TIME  and  CTIME  and  write  the  placation  message 
TIME-TIME  +  DELTAT 
CTIME-CTIME  +  DELTAT 
PTIME-PTIME  +  DELTAT 

IF (TIME .GT . (SIMST+TMULT*TOTTIM/20 . ) )  THEN 
TMULT-TMULT  +  1. 

WRITE (6,*)  '  Please  wait;  TIME  »  ',TIME 
END  IF 

END  DO 

■  TFINAL  -  TIME  -  DELTAT 
RETURN 

100  FORMAT (T 5, 'OBOGS  Output ' /3X, 'Time ’, T18, '02  Mole',T32, 

+  '02  Mass ',T44, 'Total  Mass '/2X, 'Seconds ',T18, 'Fraction', 

+  T32,'Out  g/3',T46,'In  g/s') 

110  FORMAT(1X,F10.4,T16,F10.6,T30,F10.4,T44,F10.4) 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  RUNTBL (IWRM, FILNM2,COMENTS) 

This  routine  reads  and  modifies  the  files  that  control  the 
"run  time"  parameters  of  a  simulation.  Specifically,  this 
routine  loads  the  COMMON  blocks  RQAT  and  RDAT2  (except  LUMPS) 
and  outputs  data. 

PARAMETER  (NZ=5,MAXSTPS=5,MAXLUMP=101,NZPl-6) 

COMMON/RDAT/  RBFL0W(MAXSTPS,2)  ,R02IN(MAXSTPS,2) , 

+  RPSUP(MAXSTPS,2) ,RP0UT<MAXSTPS,2) ,RTCYC(MAXSTPS,2) , 

+  SNAPTIM(MAXSTPS,2) 

C0MM0N/BDAT2/  DELTAX,DELTAT, SIMTIM, LUMPS, LUMPSl, NTIM 
CHARACTER* 80  C0MENTS(5) 

CHARACTER*7  FILNAM,VALC*1,EXT*4,FILNM*11,PILNM2*11, VALC1*1 
CHARACTER*2  NUMS (10) ,0LDFIL*11 
DIMENSION  PARAMS(10,MAXSTPS,2) 

LOGICAL  MODIFY, EXST,LOGDUM,OPN 

DATA  MODIFY/ . FALSE . / , EXST/ . FALSE . / , LOGDUM/ , TRUE . / 

DATA  EXT/ ' .TBL'/ 

DATA  NUMS/ 'I.*,'2.','3.’,'4.','5.','6.','7.','8.','9.', 

+  '10'/ 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Variable 

COMENTS 

DELTAT 

DELTAX 


EXST 

EXT 

FILNAM 

FILNM 

FILNM2 

IWRM 

LUMPS 

LUMPSl 

MAXSTPS 

MODIFY 
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definitions  follow: 

Character  array  of  comments  describing 
the  data  set 

The  time  step  (sec) 

The  lump  size.  The  user  Inputs  this  in 
centimeters.  However,  DELTAX  is  adjusted 
slightly  in  STARTUP  in  order  to  get  an 
integer  number  of  LUMPS  and  then  changed 
to  meters. 

Logical  variable  used  to  tell  if  a  file 
exists  or  not 

Character  variable  that  contains  the 
default  extension  for  the  data  files  for 
the  simulator 

Character  variable  for  the  file  to  be 
modified/created  (7  characters,  no  ext.) 
Character  variable  for  the  complete  filename 
(FILNAM  +  EXT) 

Character  variable  for  the  filename  that 
the  file  is  to  be  saved  under  (may  or  may 
not  be  the  same  as  FILNM) 

Flag  for  warm  starts  (=0  for  normal  start, 

=1  for  warm  start) 

The  number  of  space  lumps  that  results 
from  DELTAX  and  the  total  length  of  the 
bed  (calculated  in  STARTUP) 

LUMPS  +  1,  used  for  array  dimensions  and 
loop  counters 

Parameter  defining  the  maximum  number  of 
time  steps  that  can  be  input,  for  each 
time  varying  parameter 

Logical  variable  used  to  tell  if  a  file 
is  to  be  created  or  modified 
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C 

■'c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Number  of  output  points  (in  time) 

Cbaracter  array  of  numbers  for  interactive 
output  labeling 

Parameter  defining  the  maximum  number  of 
zones  in  the  bed 

Logical  variable  used  to  tell,if  a  file  is 
open  or  not 

Real  array  of  parameter  values  for  use  in 
DO  loops 

Breathing  (output)  flowrate/ 

STD  1pm  ,  , 

Inlet  oxygen  concentration/  mole  fraction 
Outlet  pressure/  MPa/  absolute 
Supply  pressure/  MPa/  absolute 
Cycle  time  for  beda,  seconds 

Simulation  stop  time/  seconds 
Array  that  stores  the  output  units  and 
times  for  snapshots  (times  are  in  (i,2), 
seconds) 

Character  variables  used  in  reading 
responses  to  yes/no  questions 

The  "R"  variables  above  are  all  2-D  arrays  (MAXSTPS  x  2) .  The 
first  row  contains  the  parameter  values;  the  second  contains  the 
start  time  for  the  corresponding  parameter  value. 


NTIM 

NUMS 

NZ 

OPN 

PAPAMS 

RBFLOW 

R02IN 

RPOUT 

RPSUP 

RTCYC 

SIMTIM 

SNAPTIM 


VALC,VALC1 


C  Redefine  the  variables  for  the  DO  loops 
NN=MAXSTPS 

PARAMS (1,1,1) -DELTAX 
PARAMS ( 2 , 1 , 1 ) -DELT AT 
PARAMS (3, 1,1) “SIMTIM 
PARAMS (4,1/1) “FLOAT (NTIM) 

DO  J=1,NN 
DO  K“l,2 

PARAMS ( 5, J, K) “RBFLOW ( J,  K) 
PARAMS(6, J,K)=R02IN(J,K) 

PARAMS(7, J,K) -RPSUP (J,K) 

PARAMS(8, J,K) “RPOUT (J,K) 

PARAMS (9, J, K) “RTCYC ( J, K) 

PARAMS (10, J,K) -SNAPTIM (J,K) 

END  DO 
END  DO 

IF (IWRM.EQ.O)  THEN 
C  Ask  for  the  filename 

WRITE(6,100) 

DO  WHILE ( .NOT. EXST) 

WRITE  !6, 110) 

READ (L, 310)  FILNAM 


FILNAM  is  only  the  seven  character  name.  Call  EXTADD  to  add 
the  proper  extension  and  then  ask  if  the  file  exists  already. 
CALL  EXTADD (FILNAM, EXT, FILNM) 

CALL  FILCHK (FILNM, EXST) 


If  the  file  exists,  ask  if  the  user  wants  to  modify 
it  . 

IF (EXST)  THEN 
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WRITE (6, 120)  FILNM 
READ  (5,  300)'  VALCI 
CALL  YES (VALCl, MODIFY) 

OPEN (UNIT=8 , FILE-FILNM, STATUS-' OLD • ) 
NUMU-8 

CALL  TREAD <NUMU, FILNM, COMENTS,PARAMS) 


C  If  the  file  does  not  exist,  start  over. 

ELSE 

WRITE (6, 125)  FILNM 
END  IF 

END  DO 

C  If  the  user  wants  to  modify  the  data,  step  through  the  change 

C  routines .  Also,  set  IFLG  to  zero  in  order  to  set  interactive 

C  mode  for  the  routines 


IF (MODIFY)  THEN 
IFLG-0 

WRITE(6,220) 

WRITE(6,230) 

CALL  CCNG (COMENTS, FILNM, IFLG) 


C 


Write  all  the  parameters  to  the  screen 
DO  WHILE (LOGDUM) 

WRITE <6, 240)  NUMS (1) , PARAMS (1, 1, 1) , NUMS  (2) , 

+  PARAMS (2, 1, 1) , NUMS (3), PARAMS (3, 1,1) , NUMS (4) , 

+  PARAMS (4, 1,1), NUMS (5), PARAMS (5, 1,1), NUMS (6), 

+  PARAt4S(6,l,l)  ,NUMS(7),PARAMS(7,1,1)  ,NUMS(B)  , 

+  PARAMS (8,1,1) , NUMS (9) , PARAMS (9, 1,1) , NUMS (10) , 

+  PARAMS (10, 1,2) 

Note  that  the  indices  on  SNAPTIM  are  NOT  in  error.  The  time  of  the 
first  snapshot  is  desired  here. 


Get  the  number  that  corresponds  to  the  parameter  to  be  changed. 
WRITE(6,250) 

READ (5,*)  INVAL 


iNVAL=0  exits;  otherwise,  call  TPARAM  to  change  the  parameter 
IF ( INVAL. LE.O)  THEN 
LOGDUM-. FALSE. 

ELSE  IF ( INVAL. LE. 10)  THEN 

CALL  TPARAM(PARAMS,NH, INVAL, IFLG) 

END  IF 

END  DO 

Ask  if  the  file  is  to  be  saved  as  FILNM.  If  it  is  not, 
get  tlie  new  filename  and  save.  Otherwise,  delete  the 
original  file  and  save  the  modified  one  under  the  same- 
name  . 

WRITE (6, 180)  FILNM 
READ (5, 300)  VALCl 
CALL  YES (VALCl, LOGDUM) 


i 
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c 

c 


c 


c 

c 

c 

c 

c 

c 


c 

c 


If  you  want  to  save  under  another  name,  get  the  name,  see 
If  it  already  exists,  and  save  (If  It  doesn't  exist  already) . 

If  the  file  already  exists,  get  a  new  name. 

IF(.NOT.LOGDUM)  THEN 
EXST-.TRUE. 

DO  WHILE (EXST) 

WRITE (6, 190) 

READ (5, 310)  FILNAM 

CALL  EXTADD (FILNAM, EXT, FILNM2) 

CALL  FILCHK(FILNM2,EXST) 

IF (EXST)  THEN 
WRITE (6,200) 

ELSE 

WRITE (6,210)  FILNM2 
END  IF 
END  DO 
CLOSE (8) 

If  a  data  set  is  being  modified,  delete  the  old  file  so 
that  it  can  be  superceded. 

ELSE 

INQUIRE ( 8 , OPENED=OPN) 

FILNM2-FILNM 

IF(OPN)  CLOSE (8, STATUS- 'DELETE') 

END  IF 

Now  open  the  file  for  storxng  the  new  data 
OPEN (UNIT-3, FILE-FILNM2, STATUS- 'NEW' ) 

END  IF 

END  IP 

Whether  or  not  the  user  wanted  to  change  the  data,  the  data  are 
saved.  Unit  1  is  the  main  output  file  for  the  simulator.  Unit  2 
is  the  "warm  start"  file  (which  contains  all  the  input  data  and  the 
adsorbed  phase  concentrations,  if  the  program  ends  normally) . 

Unit  3  is  the  new  (modified)  bed  data  file,  and  is  only  saved  if 
the  file  has  been  changed. 

LIM-2 

IF (MODIFY)  THEN 
LIM-3 
ELSE 

FILNM2-FILNM 
END  IF 

If  this  a  warm  start,  read  in  the  data 
IF(IWBM.EQ.l)  THEN 
NUMU-8 

CALL  TREAD (NUMU,FILNM2,COMENTS,PARAMS) 

END  IF 

DO  IFLG-1,LIM 
Comments 

CALL  CCNG(C0MENTS,FILNM2,IFLG) 

When  IFLG  is  non-zero,  TPARAM  outputs  all  data  in  a  single  call 
CALL  TPARAM (PARAMS,NN,INVAL, IFLG) 

END  DO 


_ 1 


OBOGS  Manual 


273 


avT -^wTv  isn  jwmnwijwu 


C  Invert  the  variables  from  the  DO  loops 
DELTAX-P ARAMS < 1 , 1 , 1 ) 

DELTAT-P ARAMS (2,1,1) 

SIMTIM-PARAMS (3, 1, 1) 

NTIM=INT(PARAMS(4,1,  1)  ) 

DO  J-1,NN 
DO  K“l,2 

REFLOW (J, K) -PARAHS (5,  J,  K) 

R02IN(J,K)-PARAMS (6, J,K) 

RPSUP ( J, K) -PARAMS ( 7 , J, K) 

RPOUT ( J, K) -PARAMS ( 8 , J, K) 

RTCYC ( J, K) -PARAMS ( 9, J, K) 

SNAPTIM (J, K) -PARAMS (10, J, K) 

END  DO 
END  DO 

RETURN 

100  FORMAT (///'  This  is  RUNTBL,  which  reads  and  modifies  data', 

+  '  files  for'/TlO, 'the  OBOGS  simulator  (APR  1988)'/) 

110  FORMAT ('  Please  enter  the  name  of  the  file  to  be  read', 

+  /TIO, 'Modified  files  can  be  saved  under  a  ', 

+  'different  name  later ' /TIO, 'The  fileneune  should  be  seven  or', 

-t-  '  less  characters  and  the  extension' /TlO, 

+  'should  be  TBL' /TIO, ' (do  NOT  include  the  extension', 

+  '  here) ') 

120  FORMAT (/TIO, 'Do  you  want  to  modify' , IX, All, '?' ) 

125  FORMAT(/T10, 'File  ',A11,'  does  not  exist!') 

180  FORMAT (//'  Do  you  want  to  save  the  data  as  ',A11,'?') 

190  FORMAT {'  Enter  the  new  seven  letter (max)  filename  without', 

+  '  any  extension') 

200  FORMAT('  That  file  already  exists.  Please  choose  another.') 

210  FORMAT ('  Therefore,  the  data  can  be  stored  on  ',A11) 

220  FORMAT (T12, 'Run  Table') 

230  FORMAT(//'  Modify  comment  lines') 

240  FORMAT (/ IX,  A2, 'Space  Step  Size- ' , PIO  . 6, 2X,.  '  (cm)  ' / 

+  IX, A2, 'Time  Step-' ,F10.6,2X, ' (sec) '/ 

+  IX, A2, 'Simulation  Duration-', FlC . 4, 2X, ' (seconds) ' / 

+  IX, A2, 'Number  of  Output  Points'^' ,F6.0/ 

+  IX, A2, 'Product  Flowrate'/ 

+  T5, ' (Initially  ' ,F6.2, IX, 'STD  1pm)'/ 

+  IX, A2, 'Inlet  Oxygen  Concentration'/ 

+  T5, ' (Initially  ' , F6 . 4, IX, 'mole  fraction)'/ 

+  1X,A2, 'Supply  Pressure'/ 

+  T5, ' (Initially  ' , FlO . 6, IX, 'MPa,  absolute)'/ 

+  IX, A2, 'Outlet  Pressure'/ 

+  T5, ' (Initially  ', FlO . 6, IX, 'MPa,  absolute)'/ 

+  IX, A2, 'Cycle  Time'/ 

+  T5, ' (Initially  ', FiO . 4, IX, 'seconds) ' / 

+  IX, A2, 'Snap  Shots'/ 

+  T5, ' (Initially  at  ' ,E10 . 4, IX, ' seconds) ' ) 

250  FORMAT (TIO, 'Enter  number  (zero  to  exit);') 

300  FORMAT (Al) 

310  FORMAT (A7) 

C23456789012345678901234567890123456789012345678901234567890123456789012 
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SUBROUTINE  SNAPOUT (NUOUT, XTIME, CTIME, ADS02, ADSTOT, 

+  02M0L,U,PBED,LUMPS1,DELTAX) 

This  subroutine  writes  the  "snapshot"  output  files 

PARAMETER  (N2-5,MAXSTPS-5,MAXLUMP-101,NZPl-6) 

C0MM0N/PLEN/Y02, Y02M1 

DIMENSION  ADS02 (MAXLUMP,2) , ADSTOT (MAXLUMP,2) ,02M0L(MAXI.UMP,2) , 

+  U(MAXLUMP,2> ;PBED(2) 

CHARACTER‘11  PILNM, VAR*2,DTIME*8,DDATE*9 

PARAMETERS  are  defined  in  BINKLEY 

PLEN  COMMON  variables  are  defined  in  STARTUP 

Arguments  are  define;^  in  PROC 

Variable  definitions:  '  , 

DDATE  Character  variable  for  the  date  , 

DTIME  Character  variable  for  the  time 

PILNM  Character  variable  for  the  name  of 

the  file  to  which  the  data  will  be 
saved  (if  NUOUT  <  3,  the  save  file  is  the 
warm  start  file) 

VAR  Character  variable  used  in  construction 

of  FILNM 

Note  that  XTIMB  in  the  argument  list  is  the  same  as  TIME  in  the 
other  program  units.  XTIME  is  used  here  because  of  the  call  to 
the  system  routine  TIME. 

Get  the  date  and  the  time 
CALL  DATE (DDATE) 

CALL  TIME (DTIME) 

Construct  FILNM  if  NUOUT  >  3 
IF (NUOUT. GT. 3)  THEN 
NUVAR-NUOUT 

ENCODE (2, 100, VAR)  NUVAR 
FILNM- 'SNAPOV /VAR//'  .DAT’ 

OPEN (UNIT-NUOUT,NAME-FILNM, STATUS-'MEW ) 

END  IP 

Write  the  output 

WRITE ( NUOUT ,110)  XT IME , CT IME , Y02 , Y02M1 , DDATE , DT IME 
DO  1-1,2 
XTOT-0 . 

WRITE (NUOUT, 120)  I,PBED(1) 

DO  J«1,LUMPS1 

WRITE(NUOUT,  130)  J,XTOT,02MOL(J, I) ,U(J, I)  , 

+  ADS02  (J,I)  ,.ADSTOT(J,  I) 

XTOT-XTOT  +  DELTAX 
END  DO 

END  DO 

CLOSE (NUOUT) 

RETURN 
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100  FORMAT (12) 

110  FORMAT (T5, 'Bed  Profiles.  Time-  ',F10.4,'  sec',T40, 

+  'Time  in  Cycle-  ',P8.4,’  sec '/T5, 'Plenum  Vars:  Y02-  '/F6.4, 

+  3X,')f02Ml-  ',F6.4/T5, 'Run  on  •,A9,T25,'at  ',A8) 

120  FORMAT (T5, 'Bed# ',12, T13, 'Pressure-  ',E10 .4,1X, 'MPa' / 

+  T7, 'Distance ',2X, *02  Mole ',2X, 'Velocity ',2X, '02  Ads', 

+  5X, 'Tot  Ads' /2X, •#',5X, ■ (m) ',7X, 'Frac',4X, ' (m/s) ', 

+  3X, '  (kgmol/m3) ',1X,  '  ()cgmol/m3)  •) 

130  FORMAT{1X,I3,1X,E10.4.1X,P6.4,1X,E10.4,1X,E10,4,1X,E10.4) 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  STARTUP (S1MST,ADS02,A0ST0T,CTIMB,BMDS,PBBD) 

This  subroutine  gets  things  started 

PARAMETER  (NZ-5,MAXSTPS-5,MAXLUMP-101,NZPl-6) 

COMMON/RDAT/  RBFLOW(MAXSTPS, 2) ,R02IN(MAXSTPS, 2) , 

+  RPSUP (MAXSTPS, 2) , RPOUT (MAXSTPS,2) ,RTCYC (MAXSTPS,2) , 

+  SNAPTIM(MAXSTPS,2) 

COMMON/RDAT2/  DELTAX,DELTAT,SIMT1M,I.UMPS,LUMPS1,NT1M 

COMMON/BDAT/  BEDD (NZ) , ZONEL(NZ) ,DIFF(NZ) ,VOIDF(NZ) ,TZONE(NZ) , 

+  ZONEKA(NZ) , ZONEKB(NZ} ,ZONEB<NZ) ,NZONE/PAREA(NZ) ,BBBTA(HZ) 

COMMON/ INIT/PATM, TEMPI , 02BLKD 
COMMON/GASES /02MW, RN2MH« RGASl 
C0MM0N/PLEN/y02 , Y02M1 

DIMENS ION  ADS02 (MAXLUMP ,2) , ADSTOT (MAXLUMP ,2), ENDS (2,2), 

PBED(2) 

CHARACTER*!  VAL,COMENTB (5) *80,COMENTR(5) *80,FILNMB*11, 

+  FILNMR*!! 

LOGICAL  LOGDUM,LOGD2 

RDAT  COMMON  variables  are  defined  in  RUNTBL 
RDAT2  COMMON  variables  are  defined  in  RUNTBL 
GASES  COMMON  variables  are  defined  in  BINKLEY 
BOAT  COMMON  variables  are  defined  in  BEDOAT 
INIT  COMMON  variables  are  defined  in  BINKLEY 
PARAMETERS  are  defined  in  BINKLEY 
Arguments  are  defined  in  BINKLEY 

Variable  definitions: 

COMENTB  Array  of  comment  lines  for  the  bed  date 

COMENTR  Array  of  comment  lines  for  the  run 

table  data 

FILNMB  File  name  for  the  bed  data 

FILNMR  File  name  for  the  run  table  data 

LOGDUM,LOGD2  Dummy  logical  variables 

SIMACT  The  actual  stop  time  of  a  simulation  being 

read  for  a  warm  start 

VAL  Character  variables  used  in  reading 

responses  to  yes/no  questions 

Y02,Y02M1  Mole  fraction  outputs  from  PLENUM  (current,, 

previous,  respectively) 

Write  intro  and  ask  if  this  is  a  warm  start 
WRITE (6, 90) 

WRITE (6, 100) 

READ (5, 300)  VAL 

CALL  YES(VAL,LOGDUM) 

If  it  is  a  warm  start,  call  WRMST,  get  new  SIMTIM,  and  reset  SIMST 
IF(LOGDUM)  THEN 

CALL  WRMST ( S IMACT , ADS02 , ADSTOT , CT IME , ENDS , PBED , COMENTB , 

FILNMB, COMENTR, FILNMR) 

WRITE (6, 110)  SIMACT 
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READ (5,*)  SIMTIM 
SIMST-SIMACT 

ELSE 

C  It  is  not  a  warm  start.  Initialise  variables. 

IWRM-0 
SlMST-0 . 

CTIME-0. 

,  '  Y02-02BLKD 

'  ;y02M1-02BLKD 

'  DO  1-1,2 

PBED(I)-PATM 
DO  J-fl,2 

ENDSd,  J)-02BLK0 
END  DO 
END  DO 

C  Call  the  data  reading  routines.  BEDDAT  fills  the  BDAT  COMMON; 

C  RUNTBL  fills  the  RDAT  COMMON. 

CALL  BEDDAT (IHRM,PILNMB,C0MEN1B) 

CALL  RUNTBL ( IHRM, FILNMR, COMENTR) 

C  Ask  if  the  user  wants  to  quit  after  editing  the  data  sets 
WRITE<6,120) 

READ (5, 300)  VAL 
CALL  YES(VAL,LOGr2) 

IP<L0GD2)  THEN 

CLOSE (UNIT-1 , STATUS- ' DELETE  * ) 

CLOSE (ONIT-2, STATU 3- • DELETE ' ) 

STOP 
END  IF 

C  Now  adjust  DELTAX  to  get  an  integer  number  of  lumps.  Also,  calculate 
C  LUMPSl  and  convert  DELTAX  and  ZONEL(I)  to  meters. 

Z-0. 

DO  l-l,NZONE 

Z-Z  +  ZONEL(I) 

ZONEL(I)-ZONEL{I) /lOO. 

END  DO 

LLIM-MAXLUMP-1 
LUMPS-INT (Z/DELTAX) 

IF ( LUMPS. GT.LLIM)  LUMPS-LLIM 
LUMPSl-LUMPS+1 

DELTAX-Z/ (FLOAT (LUMPS) *100 . ) 

C  Now  initialize  the  adsorbed  gas  arrays,  if  this  La  a  normal  start. 

DO  1-1,2 
XTOT-0 . 

NUMZ-1 

C  Call  XGETPAM  to  get  parameter  values  at  position  XTOT. 

CALL  XGETPAM (XTOT, ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

NUMZ-NUMZ  +  1 
XZONE-ZLEN 

CINT-PBEDd)  *1.E6/ (RGASl*(TZOWE(l>  +  273.16)) 
CINT02-CINT*02BLKD 
CINTN2-CINT* (1-  -  02BLKD) 

Loop  on  lumps .  Only  call  XGETPAM  when  a  zone  boundary  has 
been  crossed. 
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DO  J-1, LUMPS 1 

1P<XT0T.GT.XZ0NE)  THEN 
C  Update  the  zone  pararoetera 

CALL  X6ETPAM(XT0T,ZBBDD,ZLEN,ZDIFF,ZV0IDF,ZTEMP, 

+  ZKA,ZKB, ZB, NUMZ, BETA, AREA) 

XZONE-XZONE  +  ZLEN 
NUMZ-NUMZ  +  1 
END  IF 

ADS02 (J, I) -CINT02/ZKA 
ADSN2-CINTN2*ZB/(ZB*ZKB  +  C1MTN2) 

ADST0T(J,I)-ADS02(J,  I)  ADSN2 
XTOT-XTOT  +  DBLTAX 
END  DO 
END  DO 
END  IP 

RETURN 

90  FORMAT (TIO, 'Welcome  to  the  OBOGS  simulator'/, 

+  TIO, 'This  version  completed  in  April,  1988'//////////) 

100  FORMAT (TIO, 'Is  this  a  warm  start?') 

110  FORMAT (TIO, 'The  last  stop  time  was  ',F10.4, •  seconds'/ 

+  TIO, 'Enter  new  stop  time') 

120  FORMAT (TIO, 'Data  files  are  edited' /T15, 

+  'Do  you  want  to  quit?') 

300  FORMAT (Al) 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  TCHBCK (ARRAY, LIMIT, TIME, RESULT) 

C  This  routine  checks  ARRAY  to  see  if,  at  the  current  TIME,  RESULT 
C  has  a  new  value.  Parameter  values  are  in  ARRAY (N,l);  ARRAY (N, 2) 

C  contains  the  times.  LIMIT  is  the  number  of  possible  steps. 

DIMENSION  ARRAY (LIMIT, 2) 

DO  I-l, LIMIT 

IF(TIME.GE.ARRAY(I,2) )  THEN 

C  ARRAY (I, 2)  values  are  set  to  -1  after  that  time  has  passed. 

C  Thus,  RESULT  is  only  updated  when  a  new  positive  time  has 

C  been  reached.  ARRAY (1,2)  should  be  set  to  a  large  number 

C  (at  least  greater  than  SIMTIM)  when  no  more  step  changes  are 
C  desired. 

1F(ARRAY(I,2) .GE.O)  THEN 
RESULT=ARrvAY{I,l) 

ARRAY(I,2)—- 1. 

END  IF 

END  IF 

END  DO 

RETURN 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  TGETPAH (BFLOW, 02 IN, P SUP, POUT, TCYC, SNAP, TIME) 

C  This  routine  gets  the  proper  values  for  the  scalar  variables 
C  in  the  argument  list  from  the  COMMON  blocks  RDAT  and  RbAT2,  based 

C  on  TIME.  The  COMMON  block  variables  are  defined  in  RUNTBL;  the 

C  variables  in  the  argument  list  have  the  same  definitions  as  their 
C  analogs  in  the  COMMON  blocks  except  that  those  above  are  scalars. 

C  SNAP  is  a  flag  for  "snapshots,"  where  the  data  for  each  bed  are 

C  output  as  a  function  of  position  at  a  specified  time.  If  SNAP  is 

C  negative,  nothing  is  saved;  if  SNAP  is  greater  than  3,  PROC  calls 

C  SNAPOUT  to  output  the  data. 

PARAMETER  (NZ-5,HAXSTPS-5,MAXLUMP-101,NZPl-6) 

COMMON/RDAT/  RBPLOW(MAXSTPS, 2) ,R021N(MAXSTPS,2) , 

+  RPSUP(MAXSTPS,2) ,RPOUT<HAXSTPS,2),RTCyC<MAXSTPS,2) , 

+  SNAPTIM(MAXSTPS,2) 

C0MM0N/RDAT2/  DELTAX,DELTAT, SIMTIM, LUMPS, LUMPS1,NTIM 

NN-MAXSTPS 
SNAP— 1 . 

C  TCHECK  actually  checks  the  values 
CALL  TCHECK (RBFLOW,NN, TIME, BFLOW) 

CALL  TCHECK (R02IN,NN, TIME, 02IN) 

CALL  TCHECK (RPSUP,NN, TIME, P SUP) 

CALL  TCHECK (RPOUT , NN, T IME , POUT ) 

CALL  TCHECK (RTCyC,NN, TIME, TCYC) 

CALL  TCHECK (SNAPTIM,NN, TIME, SNAP) 

RETURN 

C234567890123456789012345678901?3456789012345678901234567890123456789012 

END 
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SUBROUTINE  TPARAM (PARAMS, NN, INVAL, IPLG) 

This  subroutine  changes  the  values  of  the  time  varying  parameters. 
Variables  are  defined  In  RUNTBL 

D IMENS ION  PARAMS ( 1 0 , NN , 2 ) 

LOGICAL  LOGDUM 

CHARACTER*80  FMATS (10) ,NUMS (5) *2 

DATA  PMATS/ ' (T5, ' ' Space  Step  (cm)  • • )  '  / 

+  *(T5, ''Time  Step  (seconds)'')', 

+  ^ (T5, ' 'Simulation  Time  (seconds)'')', 

+  '  (T5,  ' 'Number  of  Output  Points")', 

+  '  (T5,  "Breathing  Flow  (STD  1pm)  "  ,T35,  "Time  (sec)")', 

+  '(T5, ''Inlet  02  (mole  fraction) '' ,T35, ' 'Time  (sec)'')', 

+  ' (T5, ' 'Supply  Pressure  (MPa,abs) ' ' ,T35, ' 'Time  (sec)'')', 

+  ' (T5, ' 'Exhaust  Pressure  (MPa, abs) * ',T35, ' 'Time  (sec)'')', 

+  '  (T5,  ' 'Cycle  Time  (seconds)  "  ,T35,  "Time  (sec)'')', 

+  '  (T5,  "Snap  Shot  Unit  (>3)  ",T35,  "Time  (sec)")'/ 

DATA  NUMS/'l. ', '2. ' ,'3. ','4. ','5.'/ 

LOGDUM-. TRUE. 

Do  the  interactive  case  first 
IF(IFLG.EQ.O)  THEN 

WRITE(6,FMATS(INVAL) ) 

The  simple  parameters  are  INVAL  less  than  3.  Print  the  old  value 
first;  then  read  In  the  new  value. 

IF(IMVAL.LE.4)  THEN 

WRITE (6, 100)  PARAMS (INVAL, 1,1) 

READ (5,*)  PARAMS (INVAL, 1,1) 

For  INVAL  greater  than  4,  output  the  appropriate  table  of 
parameter  values  and  times 
ELSE 

DO  WHILE (LOGDUM) 

C  Write  all  the  parameter  values  to  the  screen.  Then,  read  which  Is 

C  to  be  changed  and  talce  the  appropriate  action  (ININ  less  than  0 

C  exits) 

DO  I»1,NN 

WRITE (6, 110)  NUMS (I) , PARAMS (INVAL, I, 1) , PARAMS (INVAL, 1,2) 

END  DO 

WRITE(6,115) 

READ (5,*)  ININ 

IF(ININ.LE.O)  THEN 
LOGDUM-, FALSE. 

ELSE  IP(ININ.LE.NN)  THEN 
WRITE(6,120) 

READ(5,*)  PARAMS (INVAL, ININ, 1) 

WRITE (6, 125) 

READ (5,*)  PARAMS (INVAL, ININ, 2) 

END  IF 

END  DO 
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END  IF 


C  Now,  consider  the  non-interactlve  case.  TPARAM  outputs  all  data 
C  in  a  single  call  for  this  case. 

ELSE 

DO  11-1,10 

WRITE (IFLG, FMATS  < II) ) 

IF(1I.LE.4)  THEN 
WRITE (IFLG, 105)  PARAMS <11, 1, 1) 

ELSE 

DO  J-),NN 
NOMS<J)-'  • 

WRITE (IFLG, 110)  NUMS (J) ,PARAMS(II, J, 1) ,PARAMS (II, J,2) 

END  DO 
END  IF 
END  DO 

END  IF 

RETURN 

100  FORMAT (TIO, 'Current  value-' ,F10.4/T10, 'Enter  new  value') 

105  FORMAT (TIO, 'Current  value-' ,T30,P10 . 4) 

110  FORMAT(1X,A2,T5,E10.4,T30,E10.4) 

115  FORMAT (TIO, 'Enter  number  to  change  parameter'/ 

+  TIO, 'Enter  zero  to  exit'/) 

120  FORMAT (TlO, 'Enter  new  parameter  value') 

125  FORMAT (TIO, 'Enter  corresponding  start  time  (sec)') 

C2345678901234S678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  TREAD  (NUMU,  FlIiNM,COMENTS,PARAMS) 

C  This  routine  reads  in  the  data  on  the  run  table  parameters 

PARAMETER  (NZ-5 , MAXSTPS-5 , MAXLUMP-1 0 1 , NZP 1- 6 ) 

DIMENSION  PARAMS(10,MAXSTPS,2) 

CHARACTER  COMENTS (*)*(*) ,F1LNM* (*) ,VAR*1 


C  PARAMETERS  are  defined  in  BINKLEY 
C  PARAMS  equivalences  are  in  RUNTBL 


C 

C 

c 

c 

c 

c 

c 

c 

c 


Variable  definitions: 


COMENTS 

FILNM 

NUMU 

VAR 


Array  of  comment  lines  that  describe  the 
data  file. 

The  first  line  of  the  data  file  contains 
the  name  of  the  data  file.  FILNM  is  that 
data  file  name. 

The  number  of  the  output  unit. 

A  dummy  variable  used  in  reading  blank 
input  lines. 


C  Don't  rewind  the  unit.  Just  read  in  the  coximents  and  the 
C  simple  parameters.  Convert  the  real  variable  RNTIM  to  the 
C  integer  NTIM  for  COMMON  RDAT2. 

READ (NUMU, 100)  FILNM, (COMENTS (I) , I-l, 5) , PARAMS (1, 1, 1) , 

+  PARAMS (2, 1,1) , PARAMS (3, 1,1), PARAMS (4, 1,1) 


C  Now  read  the  tabulated  data. 

DO  J'=5,10 

READ (NUMU, 110)  VAR 
DO  I«1,MAXSTPS 

READ (NUMU, 120)  PARAMS (J, I, 1) , PARAMS (J,I,2) 

END  DO 
END  DO 

RETURN 

100  FORMAT (T60, All/5 (IX, A72/) /T30, FIO . 4//T30, FIO . 4// 

+  T30,F10,4//T30,F10.4) 

110  FORMAT (Al) 

120  FORMAT(T5,E10.4,T30,E10.4) 

C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 
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SUBROUTINE  VALVE (PUP, PDWN,W,NUMVLV, TEMP) 

Given  the  upstream  (PUP)  and  downstream  (PDWN)  pressures  and  the 
valve  number  (NUMVLV) ,  this  routine  returns  the  mass  flowrate 
(W)  in  (kg/s) .  The  temperature  (TEMP,  K)  now  enters  into  the 
calculation. 

COMMON/VLVCON/CONSTl , C0NST2 ,CVCP, CRITRAT 
COMMON/ BDAT2 /  VALVD, VALVO, VALVS , VOLPLEN 

BDAT2  COMMON  variables  are  defined  in  BEDDAT 
VLVCON  COMMON  variables  are  defined  in  BINKLEY 
Arguments  are  defined  above. 


Variable  definitions: 


NUMVLV 

PDWNL,PUPL 

PRAT 

SIGN 


PUPL-PUP*1.E6 

PDWNL-PDWN*1.E6 

SIGN-1. 

PRAT-PDWNL/PUPL 


Valve  identifier (1-supply, 2-exhaust, 
3-bypass ) 

The  valve  constants  are  for  pressures  in 
Pa.  PUP  and  PDWN  are  in  MPa.  PDWNL,PUPL 
are  the  local  equivalents  in  Pa. 

Ratio  of  downstream  over  upstream  pressures 
This  is  negative  when  the  downstream 
pressure  is  greater  than  the  upstream 
pressure 


IF ( NUMVLV . EQ . 1 )  CDA-VALVS 
IF ( NUMVLV. EQ. 2)  CDA-VALVO 
IF (NUMVLV. EQ. 3)  CDA-VALVB 


IF(PRAT.GT.l.)  THEN 
SIGN— 1. 

PRAT-1 . /PRAT 
PUPL-PDWNL 
END  IF 


IF(PRAT.EQ.l.)  THEN 
W-0. 

RETURN 
END  IF 


IF (PRAT. LT. CRITRAT)  THEN 
C  Choked  flow 

W-SIGN*CDA*C0NST2*PUPL/SQRT(TEMP) 

ELSE 

FACTOR-1.-  PRAT** (CVCP*(1./CVCP  -  1.)) 

W-SIGN*CDA*CONSTl*PUPL* (PRAT**CVCP) *SQRT (FACTOR)  /SQRT (TEMP) 
END  IF 


RETURN 


C23456789012345678901234567890123456789012345678901234567890123456789012 

END 
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SUBROUTINE  VPCNG (DIAMB, DIAMS, DIAMO, DCOEPB, DCOEFS, DCOEPO, VOI.PLEN, 
+  N20NE, IFLG) 

C  This  subroutine  allows  for  the  Interactive  manipulation  of 
C  valve  parameters  for  the  OBOGS  simulation.  Specifically, 
c  the  bypass,  supply,  and  outlet  valve  diameters  and  discharge 

c  t'oof  tic  lent  s  can  be  manipulated. 

Original  routine  by  Glenn  Munkvold  2/7/87 
Modified  by  Glenn  Munkvold  4/87 

DIMENSION  PARAM(7) 

CHARACTER*2  NUMS (8) ,FMATS (3) *80 
LOGICAL  LOGDUM 

DATA  NUMS/'l. ', '2. *,'3. ’,'4.', *5.*, *6.*, *7. ','8.'/ 

DATA  FMATS/' (T4, ' 'Bypass*  * ,T15, A2,F10 . 4,T34, A2,F10 . 4)  ', 

+  '  (T4,  •  •Supply",T15,A2,F10.4,T34,A2,F10.4)  ', 

+  • (T4, • 'Outlet* ',T15,A2,F10.4,T34,A2,F10.4) '/ 


Variable  definitions  follow: 

DCOEFB  Discharge  coefficient  of  the  bypass  valve 

DCOEFO  Discharge  coefficient  of  the  outlet  valve 

DCOEFS  Discharge  coefficient  of  the  supply  valve 

Positive  discharge  coefficients  passed 
to  the  routine  are  used;  negative  values 
cause  the  discharge  coefficients  to  be 
calculated 

DIAMB  Diameter  of  the  bypass  valve  (cm) 

DIAMO  Diameter  of  the  outlet  valve  (cm) 

DIAMS  Diameter  of  the  supply  valve  (cm) 

FMATS  Character  array  of  formats  for  the  real 

variables  on  output 

IFLG  Flag  that  indicates  whether  this  call  is 

interactive  (IFLG-0)  or  a  call  to  print 
to  unit  number  IFLG. 

LOGDUM  Dummy  logical  variable  used  in  return 

from  YES  routine,  which  tests  for 
affirmative  interactive  responses 
NZONE  The  number  of  different  zones  in  the  bed 

PARAM  Real  array  of  parameter  values  for  use  in 

DO  loops 

VOLPLEN  The  volume  of  the  mixing  plenum, 

cubic  meters 

LOGDUM-. TRUE, 

PARAM (1) -DIAMB 
PARAM (2) -DCOEFB 
PARAM (3) -DIAMS 
PARAM (4) -DCOEFS 
PARAM (5) -DIAMO 
PARAM { 6 ) -DCOEFO 
PARAM ( 7 ) - VOLP  LEN 


LOGDUM 


NZONE 

PARAM 

VOLPLEN 


LOGDUM- . 
PARAM(l) 
PARAM (2) 
PARAMO) 
PARAM (4) 
PARAM{5) 
PARAM ( 6 ) 
PARAM (7) 


Interactive  mode 
IFdFLG.EQ.O)  THEN 
WRITE(6, 100) 

DO  WHILE (LOGDUM) 
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C  Print  all  parameter  values  to  the  screen 
WRITE (6^ 110) 

DO  1-1,3 
J-2*I-1 

WRITB(6,FMATS  (I) )  HUMS  (J)  ,PARAM(J)  ,NUMS(J-I-1)  ,FARAM(J-t-l) 

END  DO 

WRITE (6, 200)  NUMS(7) ,PARAM(7) 

WRITE (6, 210)  NUMS(8) ,NZONE 

C  Read  the  number  to  change  (zero  to  exit) 

WRITE(6, 115) 

READ (5,*)  INVAL 

C  Classify  the  response  and  ta)ce  action.  INVAL-0  exits  routine. 

IF ( INVAL. LE.O)  THEN 
LOGDUM-. FALSE. 

ELSE 

IF(INVAL.LE.6)  THEN 

IF (MOD (FLOAT (INVAL), 2.) .GT.l.E-4)  THEN 
I-(INVAL+1) /2 
ELSE 

I-INVAL/2 
END  IF 
J-2*I-1 

WRITE(6,FMATS (I) )  NUMS (J) ,PARAM(J) ,NUMS(J+1) ,PARAM(J+1) 
WRITE (6, 120)  PARAM(INVAL) 

READ (5,*)  PARAM (INVAL) 

ELSE 

IF(INVAL.EQ.7)  THEN 

WRITE (6, 120)  PARAM (INVAL) 

R£AD(5,*)  PARAM(INVAL) 

END  IP 

IF(INVAL.EQ.8)  THEN 
WRITE (6, 125)  NZONE 
READ (5,*)  NZONE 
END  IF 
END  IF 
END  IF 

C  End  the  DO  WHILE  loop 
END  DO 

Now  consider  the  non-intoractive  case 
Write  parameter  values  to  unit  number  IFLG 
ELSE 

WRITE (IFLG, 110) 

DO  1-1,3 
J-2*I-1 
NUMS(J)-'  ' 

NUMS(J+1)-'  ' 

WRITE (IFLG, FMATS (I) )  NUMS (J) , PARAM (J) ,NUMS (J+1) , PARAM (J+1) 
END  DO 

WRITE (IFLG, 200)  NUMS (6) , PARAM (7) 

WRITE (IFLG, 210)  NUMS ( 6 ), NZONE 

END  IF 

DIAMB-PARAM(l) 

DCOEFB-PARAM(2) 
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DIAMS-PARAHO) 

DC0EFS-PARAM(4) 

DIAM0-PARAM(5) 

DC0EF0-PARAM(6) 

V0LPLEN-PARAM(7) 

RETURN 

100  FORMAT (///'  Valve  Parameter  Changes*/ 

+  TIO, 'Enter  number  to  change  parameter'/ 

+  TIO, 'Enter  zero  to  exit'/) 

110  FORMAT (/T4, 'Valve',T16, 'Diameter (cm) *fT35, 

+  'Discharge  Coeff  ') 

115  format (TIO, 'Enter  number  (zero  to  exit):*) 

120  format (TIO, 'Enter  new  value' /T15, 'Old  value  -•,F11.5) 

125  FORMAT (TIO, 'Enter  new  value '/T15, 'Old  value  -*,I4) 

200  FORMAT (IX, A2, 'Pleniim  Volume-  • ,E10.3,T31, ' (cubic  meters)') 

210  FORMAT (IX, A2, 'Number  of  Bed  Zones- *, 12, T2 8, ' (maximum  is  5) ‘ ) 
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SUBROUTINE  VIRMST (SIMACT,A0S02,A0ST0T,CT1ME,ENDS,PBED,C0MENTB, 
+  FILNMB,COMENTR,FILNMR) 

C  This  routine  reads  In  all  the  appropriate  data  to  restart  a 

c  simulation  run  that  stops  normally  but  did  not  run  long 

c  enough.  The  routine  can  also  be  used  to  restart  a  run 

C  from  the  last  snapshot.  This  would  require  the  user  to 

C  create  a  file  where  the  snapshot  output  Is  appended  to 

C  the  end  of  the  run  table  data  In  a  warm  start  or  the  main 

C  output  file. 

PARAMETER  {NZ-5,MAXSTPS-5,MAXLUMP-101,NZPl-6) 

COMMON/RDAT2/  DELTAX,DELTAT, SIMTIM, LUMPS, LUMPS1,NTIM 

COMMON/BDAT/  BEDD (NZ) , ZONEL(NZ) ,DIFF(NZ) , VOIDF (NZ) ,TZONE(NZ) , 
+  ZONEKA(NZ) , ZONBKB<NZ) , ZONEB (NZ) ,NZONE,FAREA(NZ) ,BBBTA(NZ) 

DIMENSION  A0S02 (MAXLUMP,2) ,ADST0T(MAXLUMP,2) ,ENDS (2,2) , 

+  PBBD(2) 

CHARACTER*!  VAL,COMENTB (5) *0O,COMENTR(5) *80, PILNMB*11, 

+  FILNMR*11 


RUAT2  COMMON  variables  are  defined  In  RUNTBL 
BOAT  COMMON  variables  are  defined  In  BEDDAT 
PARAMETERS  are  defined  In  BINKLEY 
Arguments  are  defined  In  STARTUP 

Open  the  file  and  call  the  reading  routines. 

NUMO-8 

lWRM-1 

OPEN (UNIT-8 , FILE- ' START . WRM ' , STATUS- • OLD ' ) 

Input  and  output  all  data  through  BEDDAT  and  RUNTBL  with  IWRM-1 
to  suppress  the  Interactive  mode 
CALL  BEDDAT (IWRM,FILNMB,COMENTB) 

CALL  RUNTBL (IWRM,FILNMR,COMENTR) 

Now  adjust  DELTAX  to  get  an  Integer  number  of  lumps.  Also,  calculate 
LUMPS!  and  convert  DELTAX  and  ZONEL(I)  to  meters. 

Z-0. 

DO  I=!,NZONE 

Z-Z  +  ZONEL(I) 

ZONEL(I)-ZONEL(I) /lOO. 

END  DO 

LLIM-MAXLUMP-! 

LUMPS-INT (Z/DELTAX) 

IF  (LUMPS.  GT.LLIM)  LU14PS-LLIM 
LUMPSI-LUMPS+! 

DELTAX-Z/ (FLOAT (LUMPS) *!00 . ) 

Now  read  in  the  adsorbed  phase  data 

CALL  ADSREAD(NUMU, TIME, CTIME,ADS02,ADST0T, ENDS, 

+  PBED, LUMPS 1) 

And  set  SIMACT-TIME  (the  time  to  start,  SIMACT,  is  the  last 
time  output  to  the  warm  start  file,  TIME) 

SIMACT-TIME 


8 


» 

J 
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RETURN 
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SUBROUTINE  XGETPAM ( XTOT , ZBEDD, ZLEN, ZDIFF, ZVOIDF, ZTEMP, 

-t-  ZKA,ZKB,  ZB,  NUMZ/ BETA,  AREA) 

C  This  routine  returns  the  proper  values  for  the  above  parameters 

■C  based  on  NUMZ,  the  zone  number  (which  ought  to  make  the  thing 

C  a  pain  for  backward  integrations) .  Variables  are  defined  in 
C  BEDDAT.  If  NUMZ  <  1,  then  the  routine  uses  XTOT,  the  absolute 

C  distance  down  the  bed,  to  get  the  parameters  for  return. 

PARAMETER  (NZ»5,MAXSTPS-5,MAXLUMP-101,NZPl-6) 

COMMON/BDAT/  BEDD(NZ) , ZONEI.(NZ) ,DIFF(N2) , VOIDF (NZ) , TZONE (NZ) , 

+  ZONEKA(NZ) , ZONEKB(NZ} , ZONEB(NZ) ,MZONE, FAREA(NZ) , BBETA(NZ) 

IF(NUMZ.LT.l)  THEN 
XX-0. 

IFG-1 

DO  WHILEdFG.LE.NZONE) 

XX-XX+ZONEL (IFG) 

IF (XTOT. LE. XX)  THEN 
NUMZ-IFG 
IFG-NZONE  +  1 
ELSE 

IFG-IFG  +  1 
END  IF 
END  DO 
END  IF 

IF  (NUMZ. L.E.NZONE. AND. NUMZ. GE.l)  THEN 
ZBEDD-BEDD (NUMZ) 

ZBEN-ZONEL (NUMZ) 

ZDIFF-DIFF (NUMZ) 

ZVOIDF-VOIDF (NUMZ) 

ZTEMP-TZONE (NUMZ) 

ZKA-ZONEKA (NUMZ) 

ZKB-ZONEKB (NUMZ) 

ZB-ZONEB(NUMZ) 

AREA-FAREA(NUMZ) 

BETA-BBETA(NUMZ) 

ELSE 

If  NUMZ  is  out  of  range,  default  to  NUMZ  -  NZONE,  and  set  NUMZ  -  -1 
so  that  XTOT  will  be  used  on  the  next  call. 

ZBEDD-BEDD (NZONE) 

ZLEN-ZONEL (NZONE) 

ZDIFF-DIFF (NZONE) 

ZVOIDF-VOIDF (NZONE) 

ZTEMP-TZONE (NZONE) 

ZKA-ZONEKA (NZONE) 

ZKB-ZONEKB (NZONE) 

ZB-ZONEB (NZONE) 

AREA-FAREA (NZONE) 

BETA-BBETA (NZONE) 

NUMZ— 1 
END  IF 

RETURN 
END 
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SUBROUTINE  TBS(VAL,RES) 


This  subroutine  checks  the  response  to  see  if  It  is 
affirmative  during  an  interactive  session. 

VAL  is  the  input  character  variable^  RES  is  the  logical 
variable  returned. 

CHARACTER  VAL*(*) 

LOGICAL  RES 

IF(VAL.EQ. 'y' .OR.VAL.EQ. 'Y')  THEN 
RES-. TRUE. 

ELSE 

RES-. FALSE. 

END  IP 

RETURN 
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SUBROUTINE  ZCNG (IZ, BEDD, ZONBL,DIFF, VOIDF, TZONB, ZOMEKA, ZONEKB, 
+  ZONED, IFLG) 

This  subroutine  allows  for  the  manipulation  of  zone  specific 
parameters . 

LOGICAL  LOGDUM 

CHARACTER*2  NUMS (9) ,FMATS (8) *80 
DIMENSION  P ARAM (8) 

DATA  NUMS /'I. *,'2. ','3. ','4. ','5. •,'6. •,'7. ','8.*, *9. */ 

DATA  FMATS/ 

+  • <1X,A2, ' 'Bed  Diameter-' ',F10.4,2X, • ' (cm)  ") ', 

+  '  (1X,A2,  "Zone  Length-"  ,F10 . 4,2X,  "  (cm)  " )  ' , 

+  •  (IX, A2,  "Diffusion  Coefficient-",F10.4,2X,  "  (1/sec)  ") ', 

+  '  (1X,A2,  "Void  Fraction-", F6. 4) ', 

+  ' (IX, A2, ' 'Temperature-' ' ,F6.2,2X, '' (degrees  C)'')', 

+  '  (1X,A2,  "KA-",F10.4,2X,  "  (kgrool  gas/lcgmol  ads,  02)")', 

+  '  (1X,A2,  "KB-",F10.4,2X,  "  (kgmol  gas/kgmol  ads,  N2)")', 

+  '  (1X,A2,  "B-",F8.3,2X,  "  ()tgmol  N2  ads/cubic  meter)  ")  •/ 


Variable  definitions  follow: 

BEDD  Bed  diameters,  one  diameter  for 

each  zone  (cm) 

DIFF  Mass  transfer  coefficient 

for  each  zone  (1/second) 

FMATS  Character  array  of  formats  for  the  real 

variables  on  output 

IFLG  Flag  that  indicates  whether  this  call  is 

interactive  (lFLG-0)  or  a  call  to  print 
to  unit  number  IFLG. 

IZ  Bed  zone  number.  This  routine  handles 

only  one  zone  at  a  time 

LOGDUM  Dummy  logical  variable  used  for  control 

NUMS  Character  array  of  numbers  for  Interactive 

output  labeling 

PARAM  Real  array  of  parameter  values  for  use  in 

DO  loops 

TZONE  Temperature  for  each  zone, 

degrees  C 

VOXDF  Void  fractions  for  each  zone 

ZONED  Nitrogen  equil  constant, 

one  for  each  zone  (Icgmol  ads/cubic  meter) 

ZONEKA  Oxygen  equilibrium  constant, 

one  for  each  zone  (Icgmol  gas/kgmol  ads) 

ZONEKB  Nitrogen  equil  constant, 

one  for  each  zone  (kgmol  gas/kgmol  ads) 

For  a  more  extended  explanation  of  the 
equilibrium  constants,  see  Beaman's 
June,  1985,  paper  (noting  that  the  B 
defined  in  that  paper  has  incorrect  units) 

ZONEL  Length  of  each  bed  zone  (cm) 


LOGDUM-. TRUE. 
PARAM (1) -BEDD 
PARAM (2) -ZONEL 
PARAMO) -DIFF 
PARAM(4)-VOIDF 
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PARAM(5)-TZ0HE 

PARAM<6)*Z0NEKA 

PARAM(7)-Z0NEKB 

PARAM(8)-Z0NEB 

C  Call  KTCORR  to  get  KA  and  KB  as  functions  of  temperature 
CALL  KTC0RR(PARAM{5) ,PARAM(6) ,PARAM(7) ) 

C  Interactive  mode  for  IFLG“0 
IF(IFLG.EQ.O)  THEN 
WRITE (6, 100) 

DO  WHILE (LOGDUM) 

C  Write  all  parameters  to  the  screen 

WRITE(6,110)  NUMS(1),1Z 
DO  1-1,8 

WRITE(6,FMATS(1) )  HUMS (I+l) ,PARAM(I) 

END  DO 

WRITE (6, 120) 

C  Write  prompt  and  read  response  for  action 
WRITE(6,130) 

'  READ (5,*)  INVAL 

C  Classify  the  response 

IF ( INVAL. LE.O)  THEN 
LOGDUM-. FALSE. 

IZ-O 

ELSE  IF(INVAL.LE.9)  THEN 
IF ( INVAL. EQ.l)  THEN 
WRITE (6, 110)  NUMS(1),IZ 
WRITE(6,140) 

READ(5,*)  IZ 
LOGDUM-. FALSE. 

ELSE 

WRITE ( 6 , FMATS { INVAL- 1 ) )  NUMS ( INVAL) , PARAM ( INVAL-1 ) 
WRITE(6,140) 

READ (5,*)  PARAM (INVAL-1) 

END  IF 

END  IF 

C  End  the  DO  WHILE  loop 
END  DO 

C  Now  consider  the  non-interactive  case 
ELSE 

NUMS(l)-’  ' 

WRITE (IFLG, 110)  NUMS(1),IZ 
DO  1-1,8 

NUMS(I+1)-'  ' 

WRITE (IFLG, FMATS (I) )  NUMS (I+l) , PARAM (I) 

END  DO 

WRITE (IFLG, 120) 

END  IF 

C  Call  KTCORR  here  again  to  update  any  changes 
CALL  KTCORR (PARAM (5) , PARAM (6) , PARAM (7) ) 
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BEDD-PARAM(l) 

Z0MEL-PARAM(2) 

DIFF-PARAM(3) 

V0IDF«PARAM(4) 

TZ0NE-PABAM(5) 

Z0NEKA-PARAM(6) 

20NEKB»PARAM(7) 

Z0NBB-PARAH(8) 

RETURN 

100  FORMAT (///'  Zone  Parameter  Changes'/ 

+  TIO, 'Enter  number  to  change  parameter'/ 

+  TIO, 'Enter  zero  to  exit'/) 

110  FORMAT ( /IX, A2, 'Zone  #  ',12) 

120  FORMAT (T6, 'KA,  KB  <0  are  calculated  from  temperature') 

130  FORMAT (TIO, 'Enter  number  (zero  to  exit):') 

140  FORMAT (TIO, 'Enter  new  value') 
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SUBROUTINE  ISOTHM (ZKA, ZKB, ZB, ADS02 , ADSTOT, CINT02 , CINTOT) 

This  routine  is  the  coupled  isotherm  case.  The  routine 
returns  the  interfacial  concentrations  given  the  adsorbed 
phase  concentrations.  Variables  have  the  same  meanings 
and  units  here  as  defined  before.  However,  all  of  the 
variables  in  this  routine  are  scalars  <no  arrays) .  See 
Beaman's  1983  paper  for  details  and  explanations  of  this 
routine  and  the  function  FEQl.  COMMON  EQFCN  is  used  by 
FEQl . 

EXTERNAL  FEQl 

COMMON/EQFCN/ALPHA, FRACN2 

The  adsorbed  concentration  of  nitrogen 
(kg-mol/cu  m) 

The  interfacial  concentration  of  nitrogen 
(kg-mol/cu  m) 


AD8N2=ADST0T-ADS02 
FRACN2=ADSN2 /ADSTOT 
ALPHA-ADSTOT/ZB 
ZUPPER-FRACN2 

ZL0WER-ALPHA*FRACN2/ (1 .-ALPHA*FRACN2) 
CALL  FALSEP (FEQl, ZUPPER, ZLOWER, ZN2) 
CINTN2=ZKB*ZB*ZN2 

CINT02=ZKA*ZB*ALOG(1.+CINTN2/ (ZKB*ZB) ) 

CINTN2=CINTN2*ADSN2/ADSTOT 

CINT02=CINT02*ADS02/ADST0T 

CINT0T-CINT02+C1NTN2 


ADSN2 


CINTN2 


( 

V 


RETURN 

END 


FUNCTION  FEQl(Z) 

C  This  function  is  used  for  the  coupled  isotherm  case.  See 

C  Beaman's  1983  paper  for  details  and  explanations  of  this 

C  function.  COMMON  EQFCN  is  generated  by  ISOTHM. 

COMMON/EQFCN/ALPHA, FRACN2 

VAR1=(1.-FRACN2) *Z/ALOG (1 . +Z) 

VAR2=FRACN2* (1,+Z) 

FEQ1»VAR1  +  VAR2  -Z/ALPHA 

RETURN 

END 
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SUBROUTINE  ISOTHM ( ZKA, ZKB, ZB, ADS02, ADSTOT, CINT02 , CINTOT) 

This  routine  is  the  uncoupled  isotherm  case.  The  routine 
returns  the  interfacial  concentrations  given  the  adsorbed 
phase  concentrations.  Variables  have  the  same  meanings 
and  units  here  as  defined  before.  However,  all  of  the 
variables  in  this  routine  are  scalars  (no  arrays) . 

ADSN2  The  adsorbed  concentration  of  nitrogen 

<kg-mol/cu  m) 

CINTN2  The  interfacial  concentration  of  nitrogen 

(kg-mol/cu  m) 

ADSN2-ADST0T-ADS02 
CINTN2«ZK.B*ADSN2/  (1 .  -ADSN2/ZB) 

CINT02-ZKA*ADS02 

CINT0T-CINT02+CINTN2 

RETURN 
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FALSEP.FOR 


SUBROUT INB  FALSER ( FUNZ , XR, XL, XH) 

C  This  subroutine  uses  the  false  position  algorithm  to  find  the  root 

C  of  the  function  FUNZ.  XR  and  XL  are  the  bounds  on  the  root;  XM  is 

c  the  coot  returned  on  completion  of  the  routine. 

C  EXTERNAL  FUNZ 

EPS-1. E-6 

NUMITS-0 

LIMITS-20 

C  EPS  is  the  error  limit  on  the  root.  NUMITS  Is  the  number  of  Iterations 

C  made  to  find  the  root.  The  routine  exits  whenever  EPS  is  met  or  the 

C  number  of  iterations  exceeds  LIMITS. 

XL-FUHZ (XL) 

YR-FUNZ (XR) 

XM- {XL*YR  -  XR*YL) / (YR  -  YL) 

YM-FUNZ (XM) 

DO  WHILE (ABS(YM) .GT. EPS. AND. NUMITS, LE. LIMITS) 

NUMITS-NUMITS  +  1 
IF((YM*YL) .GT.O.)  THEN 
XL-XM 
YL-YM 
ELSE 

XR-XM 
YR-YM 
END  IF 

XM-(XL’»YR  -  XR*YL)/(YR  -  YL) 

YM-FUNZ (XM) 

END  DO 

RETURN 

END 
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Example  Post  Processor-PLOTPSA.FOR 


PROGRAM  PLOTPSA 

C  This  program  plots  output  from  the  binary  OBOGS  model 
CHARACTER* 30  LINE  IN 
REAL  DIST,02M0LF,^L,02ADS,T0TADS 
REAL  T1ME,02MASS,T0TMASS 
INTEGER  LOOPEX, I, LUMP, LOOPLIH 
DATA  LOOPEX/ 0/ 

OPEN ( 2 , FILE- • PSA . DAT ' , STATUS- *  OLD • ) 

DO  WHILE (LOOPEX. EQ.O) 

READ (2, 100)  LINB_1N 

IF ( INDEX (LINE_1N, 'OBOGS*) .NE.O)  THEN 

IF ( INDEX (LINE_IN, 'Output') .NE.O)  THEM 
LOOPEX-1 

OPEN  <3, FILE-'PSAPLOT .DAT* , STATUS- * NEW ' ) 

DO  10  1-1,2 

READ (2, 100)  LINE_IN 
10  CONTINUE 

DO  20  1-1,2000 

READ ( 2 , * , END-2  00)  T IME, 02MOLF, 02MASS , TOTMASS 
WRITE(3,*)  T IME, 02M0LF,02MASS, TOTMASS 
20  CONTINUE 

200  CONTINUE 

END  IF 
END  IF 
END  DO 
CLOSE (3) 

CLOSE (2) 

OPEN ( 6, FILE- • START . WRM ' , STATUS- ' OLD ' ) 

WRITE (*,*)  *  Input  the  number  of  points  per  bed' 

READ(*,*)  LOOPLIM 

LOOPEX-0 

DO  HHILE(LOOPEX.EQ.O) 

READ (6, 100)  LINE_IN 
IF(INDEX(LINE  IN, 'Bed* } .NE.O)  THEN 

IF (INDEX <LINE_IN, 'Profiles') .NE.O)  THEN 
LOOPEX-1 

OPEN ( 5 , FILE- ' PLTWRMl . DAT ' , STATUS- ' NEW ' ) 

OPEN ( 4 , F I LE- ' PLTWRM2 . DAT ' , STATUS- ' NEW • ) 

DO  30  1-1,5 

READ (6, 100)  LINE  IN 
30  CONTINUE 

DO  40  I-l, LOOPLIM 

READ ( 6 , * )  LUMP , D 1ST, 02MOLF, VEL, 02 ADS , TOT AOS 
WRITE ( 5, * )  DIST, 02MOLP, VEL, 02ADS, TOTADS 
40  CONTINUE 

DO  50  1-1,3 

READ (6, 100)  LINE  IN 
50  CONTINUE  ~ 

DO  60  I-l, LOOPLIM 

READ ( 6 , * )  LUMP , D I ST , 02MOLF, VEL, 02ADS , TOTADS 
WRITE ( 4 , * )  DIST, 02MOLF, VEL, 02ADS , TOTADS 
60  CONTINUE 

END  IF 
END  IF 
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END  DO 
CLOSE < 6) 

CLOSE (5) 

CLOSE (4) 

CALL  MAPPLT('ENDRUNl') 
CALL  MAPPLT ( ' ENDRUN2 • ) 
CALL  MAPPLT  CENDRUNS') 

STOP 

FORMAT (A30) 

END 
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